Abstract 


Williams,  Scott  Everett.  The  Lageos  Satellite:  A  Comprehensive  Spin  Model  and 
Analysis.  (Under  the  direction  of  Dr.  Arkady  Kheyfets). 

A  thorough  investigation  into  the  theoretical  modeling  of  the  Laser-Ranged 
Geodynamics  Satellite  (Lageos  I)  spin  state  evolution  is  presented.  Starting  from  an 
existing  dynamical  model,  we  analyze  in  detail  each  of  the  model’s  assumptions  and 
explore  possible  enhancements.  Additional  concerns  not  considered  by  the  original 
model  are  also  scrutinized  in  a  bottom-up  approach.  In  particular,  we  re-evaluate  the 
orbit  propagation  module,  survey  and  investigate  all  possible  space-environment  effects, 
assess  numerical  implementation  concerns,  and  perform  a  number  of  software  feature 
modifications.  In  the  process,  a  parameterized  approach  is  adopted  and  corresponding 
non-linear  optimization  tools  are  integrated  into  the  revamped  model.  The  outcome  is  a 
comprehensive,  open-source  model  of  the  Lageos  I  spin  dynamics  which  exhibits  a 
significant  advance  in  predictive  accuracy.  A  corollary  of  the  effort  is  a  broad  survey  of 
the  important  space  environment  effects  on  the  attitude  of  passive  satellites. 

In  addition,  a  thorough  analysis  of  the  model  results  is  presented  along  with  an 
expanded  discussion  of  the  interesting  discoveries  we  made.  Particularly  significant  is 
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the  sensitivity  of  the  spin  state  evolution  to  small  changes  in  the  principal  moments  of  the 
satellite — an  idea  discounted  by  previous  efforts  that  nevertheless  can  be  analytically 
verified. 

A  consequence  of  the  effort  is  the  immediate  application  to  a  number  of  ongoing 
research  activities  involving  the  Lageos  I  satellite.  Of  particular  interest  is  the  potential 
role  of  Lageos  I  in  a  proposed  experiment  to  measure  the  general  relativistic  force  known 
as  gravitomagnetism.  A  precise  understanding  of  the  evolution  of  Lageos'  spin  dynamics 
is  required  so  that  correlated  thennal  effects  may  be  properly  accounted  for  in  the 
evaluation  of  orbital  motion.  A  related  effort  is  the  attempt  to  empirically  measure  the 
spin  state  based  on  optical  glint  data.  This  process  must  be  seeded  with  a  quality  initial 
estimate  of  the  spin  axis  orientation  for  proper  evaluation  of  the  data.  The  model  we 
present  has  implications  for  both  of  these  efforts. 
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1  Introduction  and  Historical  Context 

1.1  Overview 

We  set  out  to  explore  a  problem  that  has  been  solved  many  times  over  and  yet  has  never 
really  been  solved  at  all.  In  this  case,  our  motivation  is  not  abstract  understanding  but 
rather  specific  application.  Namely,  we  seek  a  quantitatively  accurate  model  of  the  spin 
dynamics  of  the  Lageos  I  satellite.1 

As  perhaps  the  most  precisely  tracked  of  any  artificial  satellite  [D],  Lageos  is  an 
excellent  instrument  for  detecting  small  and  heretofore  undetected  orbit  perturbing 
forces.  Of  particular  interest  in  this  regard  is  Lageos'  role  in  a  proposed  experiment  to 
measure  the  general  relativistic  force  known  as  gravitomagnetism  [Ciufolini,  1986].  To 
succeed  in  these  efforts,  however,  a  precise  understanding  of  the  evolution  of  Lageos' 
spin  state  is  required  so  that  correlated  thermal  effects  can  be  properly  accounted  for  in 
the  evaluation  of  orbital  motion. 


1  A  second  Lageos  type  satellite  (II)  is  also  on  orbit  and  a  third,  as  will  be  discussed,  has  been  proposed. 
However,  our  focus  throughout  is  on  Lageos  I,  and  so  it  will  be  convenient  hereafter  to  drop  the  “I” 
identifier  unless  context  demands  otherwise. 
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Accordingly,  various  attempts  have  been  made  to  model  the  Lageos  spin  dynamics. 
Unfortunately,  however,  these  efforts  have  met  with  more  qualitative  than  quantitative 
success.  While  qualitative  results  are  useful  in  the  general  discussion  of  the  problem,  a 
quantitative  (i.e.,  predictive)  model  is  necessary  if  spin-related  orbit  perturbations  are  to 
be  sufficiently  addressed  in  the  experiment.  With  our  current  effort,  we  are  able  to  show 
a  significant  improvement  over  the  previous  efforts  in  predicting  the  spin  state  of  the 
Lageos  satellite.  These  ideas  are  expounded  in  the  sequel. 

The  statement  of  the  problem  is  simple  enough, 

dL 

- h  to  x  L  =  N  1 

dt 

where  L  is  the  spin  angular  momentum  ,  co  is  the  spin  angular  velocity,  and  N  is  the 
torque  due  to  external  and/or  internal  influences  (see  e.g.,  Goldstein  [1980]).  Equation  1, 
known  as  Euler’s  equations  of  motion,  is  a  fundamental  topic  in  any  first  course  on  rigid 
body  mechanics.  Indeed,  it  is  interesting  that  a  problem  so  old  and  basic  in  expression 
continues  to  confound  in  so  many  ways.  Avizonis  [1997]  remarked  on  the  deceptive 
simplicity  of  the  system,  which  upon  closer  inspection  is  anything  but  simple. 

The  primary  product  of  our  efforts  is  an  open  source  computer  model  of  the  Lageos 
spin  dynamics.  Accordingly,  significant  attention  is  devoted  to  issues  related  to  the 


2  It  should  be  noted  that  Euler’s  equations  of  motion  are  general.  We  make  the  restriction  to  “spin”  only 
because  that  is  the  present  concern.  Moreover,  to  first  order,  rotational  dynamics  on  different  scales  such 
as  a  satellite’s  orbital  and  body  spin  motions  are  not  coupled  and  may  be  treated  separately.  In  fact,  there  is 
coupling  at  higher  orders  and  that  is  in  part  what  motivates  the  current  interest  in  Lageos’  spin  dynamics. 
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numerical  implementation  and  software  development.  This  is  done  for  two  reasons. 
First,  in  a  rush  to  get  results,  important  and  frequently  non-trivial  numerical  issues  are 
often  overlooked;  it  is  our  goal  to  avoid  this  trap.  Second,  we  wish  to  provide  future 
users  of  the  model  with  an  understanding  of  the  code  and  inform  of  the  decisions  and 
lessons  learned  along  the  way.  We  do  so  with  the  anticipation  of  aiding  future  model 
adaptations  to  specific  applications. 

The  model  itself  does  not  originate  with  us  but  rather  was  first  introduced  by  Habib  et 
al,  [1994].  It  has  since  undergone  numerous  revisions  (including  the  present  author’s 
efforts  pre-dating  this  report  [Williams,  1997]).  This  current  effort  is  not  a  culmination, 
but  it  does  provide  substantial  refinement  in  the  evolution  of  the  model.  There  remains 
much  that  could  be  done  to  further  improve  upon  the  results  we  achieved.  These  possible 
refinements  are  identified  and  discussed  in  our  conclusion. 

Consistent  with  this  viewpoint,  we  engage  topics  throughout  either  by  identifying 
deficiencies  with  the  existing  model  or  by  observing  opportunities  to  enhance  the  fidelity 
and  reach  of  the  model.  As  such,  the  underlying  mechanics  are  approached  as  a  means  to 
an  end  (implementation),  rather  than  as  an  end  themselves. 

The  empirically  detennined  spin  state  data  of  Avizonis  [1997]  is  used  as  a  benchmark 
for  comparison  with  our  own  results.  An  example  comparing  Avizonis’  data  with  earlier 
model  output  is  shown  in  Figure  1.1.  It  is  interesting  to  note  that  there  are  present  efforts 
underway  to  apply  Avizonis’  approach  to  more  recently  recorded  data  [Currie,  private 
communication].  However,  the  current  real-world  dynamics  make  spin  state  solutions 
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Laqeos  Spin  Axis  Evolution 
April  1992  -  November  1993 


Right  Ascension  (deg) 


Figure  1.1  Comparison  of  theoretical  and  empirical  Lageos  spin  axis  evolution  data 

Empirically  measured  Lageos  I  spin  axis  orientation  as  determined  by  Avizonis  [1997]  during  the  period 
April  1992  to  November  1993.  A  sample  output  from  an  earlier  version  of  our  model  is  also  shown  for 
reference  (solid  line).  The  spatial  proximity  of  the  model  curve  to  Avizonis’  solutions  shows  good 
qualitative  agreement  between  model  and  the  empirical  data  but  space-time  correlation  (not  shown)  was 
relatively  poor.  The  latest  model  performs  much  better  in  this  area. 


impossible  without  seeding  the  process  with  a  quality  a-priori  estimate  of  the  orientation. 
In  this  regard,  our  work  has  an  immediate  application  toward  that  effort.  This  is  detailed 
later  in  our  discussion. 

A  consequence  of  our  efforts  is  a  significant  collection  of  technical,  structural,  and 
dynamical  information  about  the  Lageos  satellite.  We  convey  much  of  that  information 
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here  to  provide  an  encyclopedic  resource.  However,  some  ‘original  source’  documents 
were  difficult  to  obtain,  and  so  secondary  (and  sometimes  conflicting)  sources  were  used. 

Supporting  material  derives  from  several  sources  that  merit  distinct  citation. 
Traditional  published  references  are  given  by  author  and  publication  year  (e.g.,  Williams 
[1997]  or  [Williams,  1997]);  the  bibliography  is  alphabetized.  Additionally,  a  great  deal 
of  information  was  gleaned  from  the  Internet.  Website  citations  are  listed  separately 
from  the  publication  bibliography  and  are  identified  by  a  capital  letter  relating  to  the 
citation  entry  (e.g.,  [H]).  To  the  best  of  our  knowledge,  the  URLs  provided  are  current 
and  accurate;  however,  due  to  their  transient  nature,  they  may  change  over  time.  Finally, 
several  different  numerical  packages  have  been  accessed.  Because  the  sources  and 
accompanied  documentation  vary,  these  are  referenced  in  a  third  list  and  identified  by 
Roman  Numerals  (e.g.,  [ii]). 

Chapters  2  and  3  respectively  contain  a  thorough  treatment  and  development  of  the 
Equations  of  Motion  and  the  related  torques  specific  to  the  Lageos  satellite.  Also  found 
in  Chapter  2  is  an  overview  of  conventions  and  definitions  as  well  as  a  comprehensive 
review  of  the  Lageos  satellite’s  physical  and  dynamical  properties.  Chapter  3  details  all 
aspects  of  the  modeling  effort  from  the  torques  already  mentioned  to  software  and 
numerical  concerns.  Finally,  in  Chapter  4  we  present  some  of  the  interesting  results  of 
this  effort  and  discuss  implications  for  future  work.  The  remainder  of  this  section  is 
devoted  to  placing  our  work  in  its  larger  context  and  discussing  other  related 
contributions. 


5 


Chapter  1  -Introduction 


1.2  Synopsis  of  the  Lageos  I  Satellite 

While  we  defer  detailed  discussion  about  Lageos  to  Chapter  2,  some  background  on  the 
satellite  and  its  mission  is  necessary  to  appreciate  the  ongoing  interest  in  its  dynamics. 
The  name,  LAGEOS,  is  an  acronym  for  LAser-Ranged  GEOdynamic  Satellite.  As  the 
name  implies,  Lageos  is  a  laser-tracked  satellite  whose  position  can  be  determined  with 
great  accuracy.  This  allows  for  high  precision  measurements  of  geodynamical 
phenomena:  tectonic  plate  motion,  gravity  field  gradient,  nutation  of  the  Earth  spin  axis, 
etc.  [A] 

The  satellite  itself  is  a  simple  geometric  structure — two  hollowed  out  hemispheres  of 
aluminum  encasing  a  cylindrical  core  of  Beryllium  Copper  and  bolted  together  along  a 
tension  stud.  The  surface  of  the  hemispheres  is  covered  with  cube  corner  retroreflectors 
to  reflect  ground  station  initiated  laser  tracking  signals.  A  picture  of  the  satellite  is  shown 
in  Figure  1.2  (page  7). 

Lageos  travels  in  a  highly  inclined  retrograde  and  nearly  circular  orbit  at  an  altitude 
of  about  one  Earth  Radii.  It  completes  a  little  over  six  and  a  third  orbit  revolutions  per 
day.  The  satellite  was  designed  for,  and  the  specific  orbit  selected  to  minimize  potential 
orbit  perturbing  influences  [D]. 

Of  particular  interest  is  the  precession  of  Lageos’  orbit  plane  with  respect  to  an  Earth- 
centered  inertial  coordinate  system  (designated  ECI  and  specifically  defined  in  the 
sequel).  Indeed,  this  motion  is  a  ‘macroscopic’  (from  the  viewpoint  of  spin  dynamics) 
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Figure  1.2  Picture  of  the  Lageos  I  satellite. 


3 

case  of  (1).  Because  the  orbit  is  inclined  with  respect  to  the  equator,  the  motion  is 
subject  to  gravity  gradient  torques  resulting  from  the  Earth’s  non-uniform  mass 
distribution.  This  causes  the  orbit  plane  to  precess.  Higher  order  effects,  both 
gravitational  and  non-gravitational,  also  affect  this  motion.  All  together,  the  Lageos 
satellite  experiences  a  net  precession  period  of  about  34  and  A  months  [F]. 


3 


That  is,  “equation  1.”  We  use  this  direct  reference  style  for  equations  throughout  the  discussion. 
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As  a  passive  satellite,  i.e.,  no  mechanisms  for  attitude  control,  Lageos’  subsequent 
motion  (spin  and  orbit)  is  completely  detennined  by  its  interaction  with  the  space 
environment.  To  initially  mitigate  some  of  the  aforementioned  affects,  Lageos  was 
“spun-up”  along  its  axis  of  symmetry  to  confer  energy  and  a  stable  orientation  at  the  time 
of  orbit  insertion.  Over  time,  however,  interaction  between  the  Earth’s  magnetic  field 
and  the  satellite’s  metallic  body  give  rise  to  energy  dissipating  eddy  currents,  allowing 
for  increasing  susceptibility  to  secondary  environmental  torques. 

1.3  The  Case  for  Spin  State  Determination 

1.3.1  Lageos  &  Small  Orbit  Perturbations 

Over  the  years,  the  higher  order  effects  on  Lageos’  precessional  motion  have  generated 
considerable  interest  for  study  of  issues  unrelated  to  its  original  mission.  For  most 
orbiting  satellites,  position  determination  “noise”  conceals  small  orbit  perturbing  effects. 
In  particular,  the  error  associated  with  predicting  the  precession  caused  by  the  gravity- 
gradient  dwarfs  the  microscopic  contributions  from  other  forces.  For  Lageos,  however, 
orbit  position  determination  to  the  centimeter  level  makes  previously  masked  effects 
observable  and  measurable.  Reflexively,  this  demonstrates  the  need  to  include  these 
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forces  in  the  dynamical  models  aimed  at  generating  orbit  position  data  [e.g.,  Farinella  & 
Vokrouhlicky,  1996], 4 

It  is  remarkable  that  a  satellite  exceedingly  unsophisticated  by  comparison  to  many  of 

today’s  technically  advanced  spacecraft,  is  nevertheless  the  focus  of  so  much  attention 

after  nearly  30  years  on  orbit.  Lageos’  elegant  simplicity  allows  for  precise  observational 

measurements  and  makes  accurate  theoretical  modeling  possible.  The  point  of 

intersection  of  the  two  approaches  is  yielding  new  and  better  understandings  of 

previously  ill-defined  concepts.  For  example,  Rubincam  [1990]  has  remarked, 

“The  theory  of  charged  particle  drag  was  in  sad  shape  for  many  years  .  .  . 
However,  the  theory  of  Al’pert  gives  good  agreement  with  what  is  observed  on 
LAGEOS  ...  So  it  looks  like  we  finally  have  closure  between  theory  and 
observation  in  the  realm  of  charged  particle  drag.” 

Clearly,  the  evaluation  of  the  secondary  orbit-disturbing  forces  are  intriguing  problems  in 
their  own  respect.  Analysis  involving  Lageos  data  has  improved  knowledge  about 
charged  particle  drag,  solar  radiation  pressure  including  eclipse  responses,  and  various 
radiation  effects  due  to  the  Earth  (optical  and  infrared).  Lageos  data  has  also  contributed 
to  refinements  in  models  of  the  Earth’s  gravity  field.  Iorio  [2000]  provides  a 
comprehensive  evaluation  of  all  these  effects. 


4  In  fact,  this  is  typically  an  iterative  process.  Results  generated  by  dynamical  models  are  compared  with 
observations;  differences  exceeding  predicted  errors  are  noted  and  plausible  sources  are  explored  and 
tested.  The  process  is  repeated  until  consistent  results  are  obtained.  This  can,  and  has,  led  to  disagreement 
over  root  causes  of  the  effects.  See  e.g.,  Rubincam  [1990]. 
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1.3.2  Spin  State  Dependent  Effects 

Of  particular  interest  are  perturbations  leading  to  a  secular  decay  in  the  semi-major  axis 
of  Lageos’  orbit.  Among  the  contributing  factors,  the  dominant  force  is  Yarkovsky 
thermal  drag,5  which  accounts  for  approximately  70%  of  the  decay.  Yarkovsky  drag  is  a 
type  of  recoil  force  that  results  from  the  anisotropic  heating  and  cooling  of  the  satellite’s 
surface  via  radiative  sources  [Rubincam,  1990].  Distinctions  are  sometimes  made 
between  seasonal  (orbit  period),  daily  (spin  period),  and  eclipse-related  type  Yarkovsky, 
but  all  such  forces  depend  on  the  spin  state  of  the  satellite. 

To  understand  the  forces  at  work,  consider  a  rotating  body  in  the  presence  of  a 
radiation  source  (e.g.,  satellite  orbiting  the  Earth).  Radiation  from  the  Earth  heats  the 
direct  facing  satellite  surface.  As  the  body  rotates,  the  satellite  surface  spins  away  from 
the  heat  source  and  re -radiates  the  absorbed  energy  to  space.  There  is  a  lag  between  the 
process’  heating  and  cooling  due  to  thennal  inertia.  Consequently,  the  momentum  of  the 
particles  leaving  the  satellite  during  cooling  is  in  a  different  direction  than  the  momentum 
received  during  heating.  This  results  in  a  net  force,  a  component  of  which  acts  to  oppose 
the  orbital  motion.  The  force  is  dependent  both  on  the  spin  rate  and  on  the  spin  axis 
orientation. 

For  this  reason  alone,  there  has  been  great  interest  in  detennining  the  spin  state  of  the 
Lageos  satellites.  The  implications  are  cascading — better  spin  state  knowledge  allows 

5  The  effect  goes  by  several  names  in  the  literature  including  “Radiation  Rocket”  [Bertotti  &  less,  1991], 
“Rubincam  effect”  [Iorio,  2000],  “thermal  thrust”  [Farinella  &  Vokrouhlicky,  1996]. 
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better  modeling  of  the  Yarkovsky  affect;  in  turn,  this  improves  satellite  position 
determination,  which  leads  to  even  more  precise  measurements  of  geodynamic 
phenomena. 

There  is  also  a  kind  of  reverse  cascading  implication.  Many  forces  are  smaller  still 
than  Yarkovsky  drag,  yet  they  contribute  non-trivially  to  the  perturbed  motion  of  the 
satellite.  Unfortunately,  it  is  difficult,  if  not  impossible  to  identify  and  separate  these 
forces  from  the  data  if  the  Yarkovsky  effect  is  not  modeled  with  sufficient  accuracy.  One 
of  these  forces  in  particular  has  captured  a  great  deal  of  interest  and  motivates  much  of 
the  previously  mentioned  efforts;  gravitomagnetism. 

1.3.3  Gravitomagnetism  and  the  Lense-Thirring  Clock  Effect 

According  to  classical  Newtonian  mechanics,  the  only  gravitational  force  is  the  familiar 
-Mr  type  produced  by  the  mass  of  a  body.  In  his  theory  of  General  Relativity,  however, 
Einstein  posited  an  additional  gravitational  force  based  not  only  on  the  mass  itself  but 
also  on  the  motion  of  the  mass,  or  “mass  currents.”  This  yields  a  -Mr  effect  akin  to  that 
of  a  magnetic  field,  hence  the  name  gravitomagnetism. 

To  illustrate,  we  borrow  an  example  from  Habib  et  al  [1994].  Place  a  satellite  in  a 
polar  orbit  about  an  idealized  Earth-like  mass,  not  spinning  with  respect  to  distant  space. 
The  orbit  plane  will  remain  fixed  in  its  orientation  in  space.  Now  spin  the  central  mass. 
The  orbit  plane  of  the  satellite  will  experience  torque  along  the  central  body’s  rotation 
axis  causing  a  precession  of  the  orbit  plane  because  the  rotating  mass  has  generated  a 
dipole  gravitational  field,  i.e.,  a  gravitomagnetic  field.  This  gravitomagnetic-induced 
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Figure  1.3  Orbit  orientations  for  Lageos  I  and  Lageos  II 

precession  is  known  as  the  Lense-Thirring  effect;  although  it  is  sometimes  also  referred 
to  as  frame-dragging  or  the  gravitomagnetic  clock  effect.  Whatever  the  name,  for  Lageos 
the  result  is  a  orbital  precession  of  32  milliarcsec  per  year. 

The  importance  of  measuring  this  force  goes  beyond  the  task  of  providing  minute 
corrections  to  satellite  orbit  predictions.  It  is  also,  as  Ciufolini  &  Wheeler  [1995]  have 
remarked,  an  important  direct  test  on  the  theory  of  general  relativity.  Moreover,  while 


12 


Chapter  1  -Introduction 


nearly  negligible  on  the  scale  of  Earth-bound  satellites,  gravitomagnetism  is  believed  to 
play  a  significant  role  in  large-scale  astrophysical  phenomenon. 

To  date,  the  effects  of  this  force  have  not  been  completely  verified,  though  Ciufolini 
[2002]  has  now  come  close.  He  achieved  a  measurement  within  20%  of  theoretically 
predicted  values  by  using  a  combination  of  data  from  the  Lageos  I  and  Lageos  II 
satellites.  Among  the  factors  limiting  the  quality  of  the  result  is  the  previously  identified 
uncertainty  in  orbit  propagation  due  to  effects  related  to  the  spin  of  the  Lageos  satellite. 
There  is  also  a  difficulty  with  the  non-complementary  relationship  of  the  two  orbits 
(Lageos  II  is  prograde  but  has  a  significantly  lower  inclination  than  does  Lageos  I — see 
Ligure  1 .3),  which  is  sub-optimal  for  reasons  discussed  in  the  following  section. 

1.3.4  The  Lageos  III  Experiment 

Notwithstanding  the  difficulties  with  Lageos  I  and  Lageos  II  above,  it  is  still  widely 
believed  that  the  Lageos  satellites  remain  the  best  candidates  for  improving  upon  current 
empirical  estimates  to  the  Lense-Thirring  effect.  One  of  the  most  promising  approaches, 
due  to  Ciufolini  [1986],  is  the  proposal  to  launch  a  third  Lageos  type  satellite,  Lageos  III, 
in  an  orbit  complimentary  to  Lageos  I  (i.e.,  identical  orbital  elements  with  a 
complimentary  inclination).  This  provides  what  Habib  et  al  [1994]  refer  to  as  a  “tandem 
generated  gyro  plane”  resulting  from  the  equal  but  opposite  (classical)  precession  of  the 
two  individual  orbits.  The  large-scale  effects,  specifically  those  generated  by  the 
gravitational  zonal  harmonics  of  the  Earth,  cancel  so  that  only  higher  order  perturbations 
remain  in  the  motion  of  the  tandem  plane. 
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And  so  we  return  to  our  earlier  discussion!  Neglecting  the  small  error  from  imperfect 
cancellation  of  the  classical  forces,  the  remaining  contributions  to  the  motion  of  the 
tandem  plane  must  be  isolated.  Iorio  [2000]  details  the  various  effects  and  concludes  that 
the  Rubincam  (i.e.  Yarkovsky)  effect  is  the  dominant  error  source.  So  too,  numerous 
other  authors  acknowledge  that  the  success  of  the  Lageos  III  experiment  hinges  on  a 
successful  determination  throughout  of  the  spin  state  of  the  two  satellites  (e.g.,  Rubincam 
[1990],  Habib  et  al  [1994],  Farinella  &  Lucchesi  [1991],  Bertotti  &  less  [1991]). 

1.4  Lageos  Spin  Axis  Modeling  and  Prediction 

Two  basic  approaches  have  been  employed  to  determine  the  spin  state  evolution  of  the 
Lageos  satellite.  The  first  is  empirical — making  spin  state  determinations  from  observed 
data.  The  second,  the  approach  we  have  taken,  is  to  employ  a  theoretical  model  of  the 
dynamics  based  on  the  underlying  mechanics. 

1.4.1  Empirical  Studies  &  Avizonis’  Method 

Initial  efforts  at  empirical  solutions  attempted  to  ‘back  out’  spin  state  infonnation  from 
orbital  data.  That  is,  orbit  data  is  compared  against  model  predictions  of  residual  effects 
due  to  the  spin-dependent  thermal  forces.  A  spin  state  evolution  is  then  postulated  and 
inserted  into  the  model  based  on  the  evidence,  and  the  process  is  repeated  until  a  best  fit 
is  achieved.  Farinella  &  Vokrouhlicky  [1996]  summarize  several  such  efforts  including 
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the  original  analysis  by  Rubincam  [1987,  1990]  in  which  he  also  predicted  a  spin  state 
orientation  at  launch. 

Avizonis  -  1997 

More  recently,  and  perhaps  more  promising,  Avizonis  [1997]  employed  a  more  direct 
method  based  on  optical  glint  telemetry.  Because  of  the  relatively  simple  geometry  of 
Lageos,  it  is  possible  to  determine  the  angle  of  the  reflection  surface  for  optical  ‘flashes’ 
from  the  sun.  Using  a  ‘burst’  of  several  such  flashes,  the  latitude  band  of  the  reflectors 
involved  can  be  determined  (based  on  the  flash  frequency)  thereby  deriving  the  satellite’s 
orientation  and  spin  frequency.  For  a  slowly  evolving  spin  orientation,  multiple  ‘bursts’ 
in  proximity  (corresponding  to  different  latitude  bands  due  to  orbital  motion)  can  be  used 
to  refine  and/or  give  confidence  to  the  solutions  obtained. 

This  represents  substantial  improvement  over  the  previous  empirical  efforts  in  which 
results  were  implicit  and  perhaps  model  dependent.  Still,  Avizonis’  approach  has  some 
limitations.  For  one,  it  works  best  at  higher  spin  rates  because  multiple  ‘flashes’  can  be 
observed  during  a  single  ‘burst.’  Without  multiple  flashes,  identifying  the  latitude  band 
of  the  reflectors  is  much  more  difficult.  Second,  his  method  assumes  that  the  body  and 
spin  axes  are  aligned.  This  is  not  alarming;  almost  every  analysis  to  date  makes  the  same 
assumption,  as  do  we.  In  fact,  excepting  an  anomalous  post-launch  spin-up,  the  body  and 
spin  axes  should  be  aligned.  Nevertheless,  some  literature  references  put  the  issue  in 
doubt  (e.g.,  Barber  et  al,  [1996]).  Moreover,  spin  and  body  axis  decoupling  is  a  certainty 
in  future  years  due  to  the  decay  of  angular  momentum.  Even  if  the  condition  currently 
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holds,  it  will  not  remain  that  way  for  much  longer.  Finally,  the  Avizonis  approach  is 
unable  to  distinguish  between  spatially  inverted  pole  solutions  (same  spin  axis  orientation 
in  space  but  with  opposite  spin). 

Currie  -  2002 

Currie  [2002],  among  others,  is  currently  reviving  efforts  to  apply  Avizonis’  approach  to 
more  recent  optical  data  sets.  Because  Lageos’  spin  angular  velocity  has  decayed 
substantially  from  data  points  analyzed  by  Avizonis,  these  new  efforts  face  a  more 
challenging  task.  In  addition  to  difficulties  related  to  a  slower  spin  rate,  there  may  be 
more  important  considerations.  In  particular,  neither  of  the  fundamental  assumptions  in 
Avizonis’  work — spin  and  body  axes  aligned  and  a  slowly  evolving  body  orientation  over 
a  set  of  bursts — may  still  hold.  The  latter  is  particularly  problematic  as  it  essentially 
undermines  the  use  of  data  from  multiple  bands  to  ‘triangulate’  a  solution. 

As  a  remedy,  Currie  proposes  a  predictor-corrector  type  approach  in  which  Avizonis’ 
method  is  seeded  with  a  predicted  spin  state  from  a  dynamical  model  (such  as  our  own). 
It  should  then  be  possible  to  interpret  the  optical  data,  i.e.,  identify  the  appropriate 
latitude  band  of  reflectors,  and  refine  the  estimate.  This  would  perhaps  proceed 
iteratively  until  good  agreement  is  reached  between  the  model  and  the  translated  optical 
data. 

There  are  reasons  this  approach  is  attractive.  Theoretical  predictions  are  always  more 
appealing  when  correlated  with  directly  observed  data.  On  the  other  hand,  it  is  unlikely 
that  meaningful  results  can  be  derived  from  the  recent  optical  data  sets  without  a-priori 
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information  that  initially  gets  close  to  the  solution.  The  cooperative  effort  could  be  far 
better  than  the  individual  results  of  either  approach  and  may  make  a  difference  in  meeting 
the  stringent  error  requirements  of  the  Lageos  III  experiment. 

1.4.2  Dynamical  Spin  Models 

Modeling  the  spin  dynamics  of  Lageos  from  a  theoretical  standpoint  presents  numerous 
challenges.  The  greater  the  precision/fidelity  asked  of  the  model,  the  more  costly  and 
consuming  it  is  to  implement.  For  this  reason,  modeling  efforts  generally  seek  to  meet 
the  minimum  requirements  for  a  given  application,  but  no  more.  The  original  model  of 
Habib  et  al  [1994],  the  evolutionary  predecessor  of  our  own  work,  is  a  good  example.  It 
sought  only  qualitative  results;  and  therefore,  took  a  number  of  liberties  to  facilitate  the 
implementation. 

Similarly,  the  majority  of  efforts  view  the  theoretical  spin  state  evolution  as  an 
intermediate  result  useful  primarily  in  the  context  of  computing  orbit  perturbing  thennal 
forces  (e.g.,  Rubincam  [1987],  Farinella  &  Vokrouhlicky  [1996]).  While  this  is  the 
established  motivation  for  spin  state  detennination,  there  is  an  advantage  to  viewing  the 
dynamical  spin  state  modeling  as  a  stand-alone  effort.  In  particular,  we  have  not  been 
tempted  to  gloss  over  or  “average  out”  potential  effects  based  on  a  perceived  lack  of 
impact  to  the  larger  problem. 

While  our  approach  has  advantages,  we  do  not  discount  the  preceding  work’s  value. 
There  are  compelling  features  to  some  of  the  more  detailed  efforts  that  we  recommend 
for  closer  examination.  Moreover,  much  could  still  be  done  to  further  relax  the 
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assumptions  about  the  physical  system  as  represented  in  our  own  model  and  so  more 
closely  approach  the  true  system.  Finally,  some  of  the  features  we  added  in  greater  detail 
have  produced  only  trivial  responses.  While  the  exercise  was  fruitful  in  that  these 
refinements  may  prove  useful  as  the  model  evolves,  it  affirms  that  within  the  fidelity  of 
the  current  work,  certain  elements  of  the  physical  system  can  be  ignored  or  at  least 
simplified  to  a  great  extent. 

Bertotti  &  less  -  1991 

The  following  dynamical  models  are  specifically  highlighted.  The  Bertotti  &  less  [1991] 
model  represents  the  first  serious  attempt  to  deal  with  the  Lageos  spin  dynamics  in  their 
own  right.  The  Bertotti  &  less  model  assert  two  principal  torques  governing  Lageos’ 
spin  state  evolution:  1)  gravity  gradient  across  the  satellite’s  body  and  2)  the  dissipative 
torque  resulting  from  currents  induced  by  Lageos’  interaction  with  the  Earth’s  magnetic 
field.  Along  the  way,  three  notable  decisions  were  made.  The  first  was  to  consider  only 
a  reduced  set  of  dynamical  equations  of  motion  rather  than  the  full  expression  of  ( 1).  The 
second,  which  justifies  the  first,  was  an  implicit  assumption  of  relatively  high  spin  rates6. 
Third,  the  angular  velocity  vector  was  assumed  coincident  with  the  body  symmetry  axis, 
allowing  for  a  simplified  expression  of  the  magnetic  torque. 


6  Bertotti  &  less  analyze  the  low  frequency  case  only  after  developing  an  approach  with  an  implicit  high 
frequency  assumption.  This  led  to  interesting  but  not  necessarily  accurate  behavior  in  the  low  frequency 
regime  of  the  model. 
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Interestingly,  while  the  general  approach  assumes  a  high  spin  frequency,  Bertotti  & 
less  pursue  a  different  rational  to  conclude  that  the  low  frequency  limiting  forms  of  the 
coefficients  of  magnetization  ( a '  and  a")  can  be  used  from  the  beginning  of  the  satellite’s 
life.  This  is  reasonable  because  of  the  way  the  true  structure  of  the  satellite  ‘violates’  the 
simplifying  assumptions  made  to  compute  the  coefficients.  To  compensate,  they 
introduce  a  scalar  parameter  to  be  detennined  post-priori  based  on  observations.  The 
effect  is  similar  to  our  approach  for  the  same  issue — introduce  parameters  to  compensate 
for  inadequate  representation  of  the  physical  system  within  the  model. 

Habib  et  al  -  1994 

Bertotti  &  less’  work  has  been  invaluable  in  modeling  small  orbit  perturbations  due  to 
spin  orientation.  Still,  some  of  their  conclusions  are  questionable.  In  particular,  they 
predict  chaotic  behavior  for  low  rates  of  spin.  Kheyfets  [1992]  and  Habib  et  al  [1994] 
refute  this  result,  stating  that  the  implicit  assumption  of  high  spin  rates  in  the  original 
derivations  render  the  approach  unsuitable  for  low  frequency  analysis.  As  a  remedy, 
Habib  et  al  defined  a  model  based  on  the  full  set  of  dynamical  equations  (1)  and  a  less 
restricted  form  of  the  coefficients  of  magnetization. 

In  pursuit  of  qualitative  rather  than  quantitative  results,  the  Habib  et  al  model  takes  its 
own  share  of  liberties  with  the  physical  system.  They  presume  a  magnetic  dipole  for  the 
Earth  aligned  with  the  rotation  axis.  They  also  use  a  highly  simplified  orbit  propagation, 
ignoring  the  precession  of  the  orbit  plane. 
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Habib  et  al  show  the  spin  axis  motion  remains  reasonable  throughout,  and  they 
identify  three  phases  of  motion:  1)  a  Fast  spin  phase,  2)  a  Spin-orbit  resonance  phase, 
and  3)  an  asymptotic  phase.  Briefly,  for  fast-spin  the  spin  angular  velocity  is  aligned 
along  the  body  symmetry  axis,  and  the  total  angular  momentum  experiences  an 
exponential  decay.  As  the  spin  period  approaches  the  orbital  period,  the  angular 
momentum  transitions  to  an  orientation  orthogonal  to  the  orbit  plane,  also  decoupling 
from  the  body  axis;  this  is  the  spin-orbit  resonance.  Finally,  the  asymptotic  phase  is 
characterized  by  a  gradually  settling  of  the  dynamics  and  a  “tidal  locking”  of  the  spin 
angular  velocity  to  that  of  the  orbit. 

Barlier  et  al  -  1996 

In  another  work  inspired  by  the  Bertotti  &  less  model,  Barlier  et  al  [1996]  provide  a  more 
direct  generalization  of  the  original  approach.  Of  particular  interest  are  a  refinement  of 
the  magnetic  torque  model,  evaluation  of  cases  with  possible  initial  misalignment 
between  the  body  spin  and  symmetry  axes,  and  a  claim  that  the  initial  (orbit  insertion) 
pole  solution  for  Lageos’  spin-axis  orientation  by  Rubincam  [1990]  may  be  spatially 
inverted. 

The  work  retains  Bertotti  &  less’  use  of  a  reduced  set  of  motion  equations  based  on 
the  time-averaged  approach,  differing  from  our  effort  in  that  regard.  Still,  similarities 
persist,  including  efforts  to  treat  some  model  elements  as  post-priori  parameters  to 
account  for  specifically  unmodeled  but  notionally  understood  effects.  Also,  their 
mention  of  the  possibility  of  a  spatially  inverted  pole  is  consistent  with  our  thinking 
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based  on  observed  behavior  from  the  present  effort.  This  matter  is  discussed  further  in 
Chapter  4. 

Williams  -  1997 

Finally,  the  present  author  was  invited  to  revisit  and  generalize  the  work  of  Habib  et  al. 
In  response,  we  [Williams,  1997]  added  a  more  realistic  magnetic  field  model  of  the 
Earth — a  dipole  oriented  to  match  the  observed  magnetic  pole  location  at  a  co-latitude  of 
about  11°.  This  required  the  insertion  of  numerous  secondary  features  to  account  for  the 
now  time-dependent  (due  to  Earth  rotation)  magnetic  field.  In  addition  to  validating  the 
general  conclusions  of  the  predecessor  model,  we  also  made  strong  initial  progress 
toward  a  more  predictive  (quantitative)  tool.  The  present  effort  represents  a  continuation 
of  this  process. 

1.5  Summary 

After  nearly  three  decades  on  orbit,  Lageos  I  remains  an  intriguing  and  important  tool  for 
geophysical  research.  Its  uniquely  precise  orbit  exhibits  the  effects  of  previously 
undetectable  perturbing  forces,  including  gravitomagnetism.  To  properly  isolate  these 
effects  within  the  Lageos  orbital  data,  a  detailed  understanding  of  surface  thennal  forces 
is  required.  In  turn,  this  places  an  emphasis  on  evaluating  the  spin  state  of  the  satellite. 
To  this  end,  numerous  efforts  have  been  made  to  model  the  Lageos  spin  dynamics,  both 
empirically  and  theoretically.  Unfortunately,  these  efforts  fall  short  of  the  ideal  and 
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cannot  provide  the  predictive  accuracy  required  for  a  sufficient  determination  of  the 
thennal  force  effects.  The  present  work  aims  to  improve  upon  those  results  and  we  now 
proceed  with  the  details. 
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2  Foundations 

2.1  Conventions 

In  moving  forward,  it  is  useful  to  identify  various  conventions  employed  throughout  this 
work.  The  following  summary  is  presented  to  clarify  the  subsequent  discussion. 

Symbols  and  Notation 

Whenever  possible,  we  have  used  standard  notations  and  definitions.  However,  to  avoid 
confusion  and  to  document  decisions  peculiar  to  this  work,  we  establish  the  following: 

•  Scalar  quantities  are  written  in  italics  (x,  o),  vectors  and  higher  order  counterparts 
as  bold  italic  (r,  co),  and  units  in  standard  font  (cm,  s). 

•  The  customary  “hat”  notation  (f )  is  used  for  unit  vectors,  excepting  the  basis 
vectors  discussed  next. 

•  The  principal  directions  for  any  Cartesian  coordinate  system  are  often  referred  to 
in  the  text  as  x,  y,  and  z  directions,  but  the  corresponding  basis  vectors  are 
identified  as  e\,  e2,  and  ej,  respectively;  an  arbitrary  vector  then  has  elements 
r  =  (rh  r2,  n). 
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•  Spherical  coordinates  are  often  referred  to  using  “geographic”  terminology — 
longitude  for  the  x-y  plane  angle  measured  counter-clockwise  from  the  x-axis;  co- 
latitude  for  the  polar  angle  measured  from  the  z-axis;  and  latitude  for  the  90° 
complement  of  co-latitude,  measured  from  the  x-y  plane. 


dcp 


•  The  dot  notation  is  used  for  complete  derivatives  in  the  time  variable:  -j-  =  cp . 


Bookkeeping 

Multiple  coordinate  systems  are  employed,  making  bookkeeping  an  issue.  For  instance, 
the  usable  form  of  the  equations  of  motion  is  given  in  terms  of  variables  relating  one 
system  of  axes  to  another.  In  lieu  of  cascading  layers  of  superscripts  and  subscripts,  we 
shall  often  rely  on  the  clarity  of  context.  In  particular, 

•  Reference  system  identifications  are  usually  omitted  for  a  vector  occurring  in  its 
‘native’  frame  (e.g.,  co  in  the  body  system  of  axes)  and  with  vectors  for  which  no 
particular  designation  is  yet  required. 

•  For  vectors  in  non-native  frames,  a  superscript  capital  letter  identifying  the  non¬ 
native  frame  is  used  (e.g.,  a>  ). 

•  For  generally  defined  vectors,  such  as  eh  parentheses  are  used  to  indicate  the 
original  and  resulting  frames:  e.g.,  (ef)B  is  the  B-frame  representation  of  the  E- 
frarne  x-axis  unit  vector. 


24 


Chapter  2  -  Foundations 


Constants  and  Standards 

The  cgs  (centimeters-grams-seconds)  convention  is  used  within  the  model,  as  opposed  to 
the  SI  (Le  Systeme  International  d’Unites,  [I])  standard  meters-kilograms-seconds.  This 
is  done  because  the  cgs  system  is  better  suited  for  work  involving  electrodynamics  (see 
Jackson  [1975]),  and  it  is  simple  enough  to  translate  between  the  two  systems. 

The  situation  for  physical  constants  is  a  little  more  complicated.  The  National 
Institute  of  Standards  and  Technology  (NIST)  maintains  a  list  of  “Fundamental  Physical 
Constants”  at  [I].  However,  this  list  contains  few  astrodynamical  parameters,  partly 
because  most  such  quantities  are  not  truly  constant  (thus  “dynamic”).  Moreover,  many  of 
the  values  important  to  this  work  are  not  direct  measurements  but  are  themselves 
parameters  corresponding  to  the  best  fit  of  a  particular  model  to  observations  of  a 
physical  system.  For  example,  the  specific  values  of  the  Geopotential  coefficients 
(Chapter  3)  are  different  for  the  JGM-3  model  than  for  the  EFM96S  model  (see  Gill  & 
Montenbruck  [2000]  for  a  historical  summary  of  gravity  models).  Thus,  while  new  and 
better  values  for  a  specific  parameter  may  be  achieved,  legacy  occasionally  requires  use 
of  an  older,  less  accurate  set.1 


1  An  example  of  this  can  be  seen  in  the  NORAD  orbit  model  behind  the  Lageos  orbit  data  we  use  (Section 
0).  The  NORAD  model  uses  the  WGS-72  (  “World  Geodetic  Survey  -  1972”)  standard  for  geophysical 
parameters  even  though  there  are  far  better  measurements  available  today  (due  in  part  to  Lageos  data). 
Adopting  a  new  standard  in  this  case  requires  reevaluating  decades  of  orbital  data  (to  ensure  data  sets  for  a 
given  satellite  remain  internally  consistent);  a  prohibitive  task. 
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This  constraint  is  true  for  the  present  effort.  We  draw  from  many  sources  (orbit  data, 
geodesy,  geomagnetic,  etc.),  and  so  several  different  standards  are  represented  in  the 
assembled  model.  While  this  is  probably  not  much  of  an  issue  within  the  fidelity  of  the 
model,  internal  consistency  is  always  desirable.  For  parameters  within  our  control,  we 
use  values  specified  by  the  International  Earth  Rotation  Service  (IERS,  [.!]). ' 

Time 

Much  could  be  said  about  issues  of  time  because  it  is  intertwined  with  the  astrodynamical 
system.  Indeed,  the  very  definition  of  time  as  we  experience  it,  is  based  on  the  rotation  of 
the  Earth.  However,  in  lieu  of  a  protracted  discussion,  we  refer  to  Kelso  [1995-6]  or  Gill 
&  Montenbruck  [2000].  For  our  purposes,  a  few  definitions  suffice. 

•  Mean  Solar  Day  is  the  period  of  the  Earth’s  revolution  with  respect  to  the  mean 
Sun  location.  By  definition,  it  has  a  duration  of  86,400  s.  This  is  the  timescale 
of  our  everyday  time  keeping. 

•  The  mean  Sun  drifts  eastward  by  about  1  °/day  due  to  the  Earth’s  orbital  motion; 
therefore,  the  Mean  Solar  Day  is  greater,  by  about  4  minutes,  than  the  period  of 
the  Earth’s  revolution  relative  to  fixed  space,  known  as  the  Mean  Sidereal  Day. 


2  Some  of  the  common  reference  standards  include  the  WGS  (-72,  -84,  -84/NIMA-97),  the  IERS,  and  the 
IAG;  see  Featherstone  [1996]  or  [K]  for  additional  information. 

3  Hours,  minutes,  and  seconds  were  originally  angular  measures.  One  complete  revolution  has 
24h*60m/h*60s/m  =  86400  s  and  so  begat  the  original  definition  of  the  length  of  a  second — 1/86400  of  the 
duration  of  subsequent  meridian  transits  of  the  Sun. 
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•  Universal  time  (UT1)  is  a  mean  solar  timescale  that  relates  the  angular 
displacement  of  the  Greenwich  Meridian  from  the  Earth-Sun  line  to  a  clock-on- 
the-wall  time  (basis  for  time  zones);  12h  UT1  corresponds  to  Greenwich  noon  (0° 
angular  displacement). 

•  Julian  Day  is  a  mean  solar  timescale  expressed  in  day  units  with  partial  days  as 
fractions.  A  Julian  day  starts  and  ends  at  12h  UT1. 

•  Julian  Date  (JD)  is  a  monotonic  Julian  Day  timescale  for  the  Gregorian  Calendar 
(the  calendar  we  use  in  everyday  life).  E.g.,  January  1,  2000  at  12h  UT1 
=245 1545.0  JD  is  the  J2000  Epoch. 

•  J2000  Julian  Date  (JD2K)  is  a  monotonic  Julian  Day  timescale  referenced  to 
J2000.  E.g.,  January  1,  2000  at  12h  UT1  =  0.0  JD2K 

2.2  Satellite  Attitude  Dynamics 

To  put  (1)  in  usable  fonn  requires  a  brief  review  of  rigid  body  kinematics.  Using 
tenninology  directly  from  our  application,  we  begin  with  a  definition  of  the  two 
fundamental  Cartesian  coordinate  systems  of  the  problem  (Section  2.2.1)  and  discuss  the 
relationship  between  the  two  (Section  2.2.2). 
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Figure  2.1  Sketch  of  the  Earth  Centered  Inertial  (ECI)  system. 

The  axes  are  fixed  in  space  with  z  along  the  Earth’s  rotation  axis  and  x  in  the  direction  of  the  Vernal 
Equinox.  The  right  ascension,  a,  and  declination,  S,  are  also  shown  for  an  arbitrary  position  vector  r. 


2.2.1  ECI  &  Body  Frames 

The  first,  shown  in  Figure  2.1,  is  an  inertial  coordinate  system  with  origin  at  the  center  of 
the  Earth  and  z-axis  aligned  with  the  Earth’s  rotation  axis.  The  x  and  y  axes  lie  in  the 
Earth’s  equatorial  plane,  fixed  in  space  so  that  the  x-axis  points  toward  the  Vernal 
Equinox  (loosely  speaking,  the  Earth-Sun  vector  on  the  first  day  of  Spring);  the  v-axis 
completes  the  right-handed  set.  This  system  is  called  the  Earth  Centered  Inertial  system 
and  will  be  referred  to  as  the  “ECI,”  or  “fixed”  system.  Recalling  the  earlier  discussion 
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on  conventions,  ECI  frame  objects  will  be  expressed  with  a  superscript  E  when 
discernment  is  necessary.  Also  note  the  longitudinal  and  latitudinal  angles  for  the  ECI 
frame  are  specifically  designated  right  ascension  and  declination  respectively. 

Of  course,  the  ECI  frame  is  not  truly  inertial.  For  one,  the  frame  accelerates  as  it 
travels  with  the  Earth  on  its  trip  around  the  Sun.  More  subtly,  there  exists  a  secular 
(albeit  tiny)  motion  of  the  line  of  equinoxes  and  a  wobbling  spin  axis.  However,  the 
former  is  merely  an  issue  of  decoupling  angular  momentum  components  (discussed 
momentarily),  and  the  latter  is  on  a  scale  that  is  inconsequential  to  our  work.  For  the 
record,  the  ECI  frame  we  use  conforms  to  the  True  Equator,  Mean  Equinox  of  Epoch 
(J2000)  convention.4 

The  second  system  of  axes  is  the  Body  Frame,  denoted  by  a  superscript  B.  This  is  a 
right-handed  system  fixed  to  the  Lageos  satellite  with  origin  at  its  center  of  mass  (CM8), 
which,  fortunately,  also  happens  to  be  at  the  geometric  center  of  the  satellite.  The  z-axis 
is  along  the  direction  of  rotational  symmetry,  called  the  body  axis  or  axial  direction.  The 
x  and  v  axes  are  fixed  in  the  equatorial  plane  of  the  satellite  but  otherwise  arbitrary.  Due 
to  symmetry,  equatorial  directions  are  homogeneous  so  it  will  often  suffice  to  refer  to  the 
equatorial  components  generically  as  the  transverse  direction  (or  axis)  rather  than  to  the 
individual  x  and  v  axes.  A  picture  of  this  frame  is  shown  in  Figure  2.2  on  page  3 1 . 


4  The  z-axis  is  instantaneously  aligned  with  the  tme-of-date  spin  axis  (and  hence,  the  equator  is  the  true 
equator),  while  the  x-axis  points  to  the  mean  Vernal  Equinox  for  J2000. 
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The  angular  velocity  vector,  co,  describes  the  spin  of  the  satellite.  The  direction  is  the 
instantaneous  axis  of  rotation,5  and  the  magnitude  is  the  rate  of  spin.  While  easier  to 
conceptualize  as  an  ECI  vector,  it  is  more  convenient  notationally  to  adopt  the  convention 
of  co  as  native  to  the  body  frame.  When  possible  to  do  so,  the  body  z  axis  is  chosen  so 
that  co 3  is  positive.  It  remains  to  specify  the  relationship  between  the  body  and  ECI 
frames  and,  from  this,  derive  a  representation  for  co. 

2.2.2  Euler  Angles 

There  are  a  number  of  ways  to  define  the  relationship  between  the  ECI  and  body 
coordinate  systems — Direction  Cosines,  Quaternions,  Roll-Pitch-Yaw,  and  Euler  Angles 
to  name  a  few  (see  e.g.,  Hughes  [1986],  Chobotov  [1991],  Wiesel  [1989],  Shabana 
[2001],  and,  of  course,  Goldstein  [1980]).  Each  of  these  conventions  has  advantages  and 
drawbacks  and  may  be  more  or  less  suitable  for  a  particular  application. 

For  rotational  dynamics,  Euler  Angles  are  particularly  convenient  because  of  the 
immediate  correlation  with  the  precession,  nutation  and  spin  of  the  satellite.  The 
disadvantages,  however,  of  Euler  angles  are  twofold.  First,  there  is  an  artificial 
singularity  when  the  precession  angle  goes  to  zero,  making  the  nutation  and  spin  angles 
indistinguishable.  Second,  some  of  the  other  conventions — quaternions  in  particular — 


5  Rotations  are  viewed  in  a  right-handed  sense.  When  looking  back  down  toward  the  body  from  the 
positive  co  direction,  the  rotation  is  seen  to  be  counter-clockwise  about  the  co  axis. 
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Figure  2.2  Angular  relationship  between  the  ECI  and  Body  coordinate  systems. 

The  rotations  are  done  in  the  order  (/>,  6 \  y/  and  these  angles  are  called  Euler  Angles.  The  body  axis  is  the 
axis  of  rotational  symmetry  for  the  Lageos  satellite,  and  the  line  of  nodes  is  the  intersection  between  the 
respective  equatorial  planes  of  the  two  systems. 

lead  to  more  computationally  efficient  fonns  of  the  equations  of  motion.  Nevertheless, 
we  have  chosen  to  proceed  with  the  Euler  angle  formulation  because  of  the  intuition  they 
provide,  the  immediate  correlation  with  orbit  parameters  (also  an  Euler  type  rotation), 
and  the  inherited  legacy  of  the  model.  Additionally,  the  motion  of  the  spin  axis  is  such 
that,  in  the  short  tenn,  the  nutation  angle  remains  bounded  away  from  the  singularity. 
This  will  change  as  the  satellite  continues  to  lose  energy  so  the  issue  will  have  to  be 
revisited  in  the  future. 
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The  Euler  angles  describe  the  transformation  via  a  sequence  of  rotations  between  a 
fixed  set  of  axes  (ECI  in  this  case)  and  a  rotating  set  of  axes  (body  frame).  The  sequence, 
shown  in  Figure  2.2,  is 

1 .  A  rotation  of  <j)  about  the  ECI  z  axis. 

2.  A  rotation  of  6  about  the  line  of  nodes. 

3.  A  rotation  of  y/ about  the  body  z  axis. 


Each  of  these  is  a  simple  Givens  Rotation  [Meyer,  2000]  and  the  product,  formed  left  to 
right,  has  a  matrix  representation 


T 


EB 


cos y/ cos cp  -  cos 6 sin cp sin yr  cos^sin^»  +  cos^cos^sin^  sin^sin^G 

-sin^cos^  -  cos  6*  sin#?  cos  ^  -sin^sin^?  +  cos#  cos  49  cos  ^  cos^sin# 
sin<9sin^>  -sin<9cos^>  cos<9  y 


2 


where  the  superscript  identifies  this  as  a  transformation  from  the  ECI  to  the  body  frame, 
i.e.,  (rE)B  =  JEB  •  rl  .  This  is  an  orthogonal  transformation  so  the  inverse  transformation 
is  given  simply  by  the  transpose 


T 


BE 


3 


An  observation  that  will  prove  useful  later  is  that  the  columns  of  TEB  are  the  body  frame 
representations  of  the  ECI  basis  vectors,  (ef)B ,  while  the  rows  are  the  ECI 
representations  of  the  body  frame  basis. 

The  satellite’s  angular  velocity  can  be  detennined  from  the  Euler  angle  rates  using 
trigonometry.  In  the  body  frame,  \j/  has  only  an  axial  component  while  9  is  a  transverse 
motion;  (p  has  components  in  both  directions  and  so  we  see  that 
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( 

to  = 

V 


6  cos  yr  +  <p  sin  6  sin  y/' 
0  sin  yr  +  <p  sin  9  cos  y/ 
<pcos6  +  yr 


4 


2.2.3  Inertia  and  Angular  Momentum 

Angular  momentum  is  the  rotational  analog  to  linear  momentum,  p,  and  is  given  by 

L  =  r  xp  5 

Strictly  speaking,  a  bit  of  caution  is  required  here.  While  (5)  is  convenient  notation,  it 
masks  the  interesting  dynamics.  Better  is  the  differential  form  where  each  element  of 
mass  has  a  corresponding  position  and  velocity  so  that 

dL  =  r  dm  x  dp  6 

This  can  then  be  integrated  over  the  body  to  give  the  total  angular  momentum  of  the 
system. 

We  have  assumed  from  the  beginning  that  only  the  spin  angular  momentum  need  be 
considered  in  (1)  and  now,  (6).  This  is  justified  with  the  choice  of  the  satellite  center  of 
mass  as  the  origin  of  the  local  frame.  It  can  easily  be  shown  that  (6)  separates  nicely  into 
a  problem  of  the  translational  motion  of  the  center  of  mass  (i.e.,  the  orbital  motion)  and 
the  rotation  of  the  satellite  about  the  mass  center.  Generally,  the  system  potentials  can  be 
similarly  segregated.  Therefore,  the  problems  of  translational  and  rotational  motion  can 
be  treated  independently  (Goldstein  [1980]).  As  an  aside,  this  same  line  of  reasoning 
governs  the  separation  of  the  Earth  system’s  orbital  motion  about  the  Sun  and  the  local 
rotational  motion  (such  as  orbiting  satellites)  thereby  justifying  the  “inertial”  in  ECI. 
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Having  established  this  initial  viewpoint,  a  partial  refinement  is  necessary.  Hughes 
[1986]  points  out  that  a  number  of  high-order  environmental  forces  have  cross-over 
effects  between  the  spin  and  orbit  motions,  so  called  orbit-attitude  coupling.  Indeed,  this 
point  was  well  established  in  Chapter  1.  Nevertheless,  it  is  generally  sufficient  to 
separate  the  problem  as  above  and  treat  coupled  effects  as  perturbations  after  the  fact. 

Proceeding  with  6,  Chobotov  [1991]  has  shown 


3 

J  r  x  (co  x  r)dm  = 

[  ( r2 1  -  rr  )  dm 

B 

\B 

) 

where  the  integral  is  over  the  spacecraft  body,  and  dm  is  a  differential  mass  element.  The 
remaining  integral  term  on  the  right  side  of  (7)  is  the  inertia  tensor, 

I  =  j(r2 1  -  rr)  dm  8 

B 

which  depends  both  on  the  mass  properties  of  the  body  and  on  the  choice  of  body  axes. 
It  is  the  rotational  analog  to  mass.  Thus, 

L  =  I  a).  9 

The  matrix  representation  of  /  is  hennitean  and  so  diagonalizable 

I  =  Ilelel  +  Ixe2e2  +  I2e3e2 .  10 

In  turn,  this  implies  there  is  a  set  (or  sets)  of  axes  for  which  I  is  already  diagonal.  These 
are  called  principal  axes  and  can  conceptually  be  regarded  as  the  directions  of  mass- 
symmetry  within  the  body.  The  body  axes  of  Lageos  are  such  a  set. 
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2.2.4  Equations  of  Motion 

Turning  our  attention  back  to  (1),  we  may  now  write 

I  ■  to  +  (ox  (/  •  (o)  =  N .  11 

It  is  immediately  evident  that  the  equation  is  quite  complicated  if  the  body  axes  are  not 
principal.  This  is  important  for  Lageos  in  that  a  small  imbalance  within  the  satellite 
would  cause  a  misalignment  between  the  geometric  symmetries  and  the  (true)  principal 
axes.  To  our  knowledge,  no  one  has  addressed  this  issue  which,  if  true,  could  represent 
an  important  and  significant  error  source  in  the  modeling  effort.  This  concern  is  revisited 
in  Chapter  4. 

For  now,  however,  we  proceed  under  the  previous  assumption,  and  (11)  simplifies 
nicely.  In  fact,  Lageos  is  axisymmetric  (see  Section  2.3.1)  so  the  two  transverse  moments 
are  equal,  I\  =  h.  With  this  in  mind,  the  equations  in  scalar  fonn  become 

I\d)\  =  -a>2(o3(I3  —  fj)  +  Nl 

/,(h2  =  0Jt0J3(I3  —  7j )  +  N 2  .  12 

Ixeo3  =  N3 

To  obtain  an  expression  in  terms  of  the  Euler  angles,  we  substitute  (4)  and  the  derivative 
of  (4)  into  (12),  then  simplify.  The  result  is  a  somewhat  complicated  second  order 
differential  equation  in  the  Euler  angles. 
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The  Lageos  Spin  State  Equations  of  Motion 


Separating  the  tenns  that  involve  torques  for  notational  convenience,  we  identify  free 
response  ( fr )  and  forced  response  (F)  components  to  these  equations  of  motion.  And  so 
we  have,  finally, 

6  =  0fr  +  0F 

(f>  =  (f>  f.  +  (f>  F  13 

V  =  ¥  fr  +  Vf 


where  the  free  response  equations  are 


fr  =~P  ^  d[{f-f)<pcosO  +  If/] 
\ 


<Pfr 


0 


—[(I3-2f)(pcosO  +  I3if] 


/,sin  6 


0 


Wfr  =  ~  ,  .  ..[((A  -  f)(pcosO  +  /3^)cos  0  -  f(p\ 
/,sin  0 


and  the  force  response  equations  are 

0F  =  —  [Aj  cos  y/  -  N2  sin  y/\ 


<Pf  = 


- — sin  ip  +  N2  cos  y/\ 


L  sin  0 


14 


15 


Vf  =  -  C0S^  [A|  sin y/  +  N2  cos y/]+^~ 
LsmO  L 


Equations  13,  14,  and  15  completely  describe  the  rotational  motion  of  Lageos.  With 
proper  evaluation  of  the  torques,  very  precise  results  should  be  obtainable. 
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Unfortunately,  there  are  many  hurdles  to  achieving  the  kind  of  accuracy  desired  when 
computing  torques,  but  that  comes  later. 

Implementation 

The  Euler  equations  of  motion  described  by  (13)  through  (15)  are  a  system  of  second 
order,  autonomous  non-linear  ordinary  differential  equations  (ODEs).  We  wish  to 
propagate  the  system  in  time  given  an  initial  state  for  the  Euler  angles  and  their  rates.  At 
first  glance,  this  system  appears  quite  manageable — there  are  only  a  handful  of  variables, 
and  the  statement  of  the  problem  is  relatively  clean.  However,  non-linearity  and  the 
presence  of  forcing  terms  (torques)  prohibit  an  analytical  treatment  of  the  problem. 
Evaluation  of  the  torques  represents  a  set  of  problems  within  the  problem,  and  it  is  the 
central  goal  of  our  effort  to  quantify  their  effects.  Nevertheless,  once  N  is  determined, 
the  equations  of  motion  still  must  be  resolved. 

The  issues  of  numerical  implementation  are  addressed  later;  for  now,  we  simply 
exhibit  the  reduction  of  the  equations  of  motion  to  a  form  for  use  within  the  model.  The 
equations  of  motion  are  restated  as  a  first  order  system  by  setting 

Y  =  {6  <j)  y/  0  (j)  ip)  16 

so  that 
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where 


and 


r  y 4  \ 

y2 

y, \ 

.  Y 6  .. 

y 4 

Of.  +  0F 

Pfr+Pp 

UJ 

^  Wfr  +  Vf  , 

Ojr  =  ■ [(/3  -  m  cos  Yx  +  I3Y6 ] 


Vfr 


Vfr 


h 

ya 


/,  sin  Yt 

Y. 


/,  sin  Y1 


[(/3  - 21^ cos Y1+I3Y6\ 

(((/3-/1)r5cos^+/3r6)Cos^-//5] 


0F  = 


—  [w,  cos  Y3  -  N2  sin  73  ] 


<Pf  = 


¥f=' 


- — [/V,  sin  K  +  N2  cos  73  ] 


/,  sin  Yt 


sin  73  +  N2  cos  73  ]  +  ^ 


/j  sin  Yj 


These  may  be  computed  efficiently  as  follows 

1.  Compute:  s7i  =  sin7i,  cY\  =  cosTi,  I  =  FII\,T  =  \  - 1 

2.  Set  wi  =  Y5  cY\,  W2  =  IYe,  W2~I'w\-W2,  wa~YJsY\ 

3 .  Determine  N\,N2,  and  Nj 

4.  Compute  sY?,  =  sin73,  CT3  =  COST3 


17 


18 


19 
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5. 

6. 


Set  1's  =  7T(A''sy'  +  *icl'>1 


Then 


f 


r4 

A 


\ 


Y  = 


y6 

Y5  sY  w3  +  —  (N,  cY3  -  N2  sY3) 

A 

-  W4(w3  +  W[)  +  w5 

w4(w3  cYx  +  Y)  -  cYx  w5  +  — 

V  Ay 


20 


2.3  The  Lageos  Satellite 

While  some  infonnation  about  the  Lageos  satellite  has  already  been  discussed,  the 
following  is  a  comprehensive  summary.  There  are  various  sources  for  much  of  the  data 
presented.  They  are  summarized  here  in  lieu  of  littering  the  following  text  with 
redundant  citations:6  Habib  et  al  [1994],  Kheyfets  [1992,  1993],  Avizonis  [1997], 
Rubincam  [1987],  Bertotti  &  less  [1991],  as  well  as  [A],  [B],  [C],  [D],  [E],  and  [H]. 

2.3.1  Spacecraft  Properties 

An  extremely  accurate  orbit  is  required  for  Lageos  to  function  as  a  space  bound  reference 
for  high  precision  measurement  of  geodetic  phenomena.  The  design  of  the  satellite 


6  Regrettably,  we  were  unable  to  acquire  the  apparent  common  source  document  for  Lageos  structural 
information,  Johnson  et  al  [1976];  although,  we  list  it  in  the  references  to  be  thorough. 
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balances  the  objectives  of  maximizing  the  body’s  reflective  properties  while  minimizing 
its  susceptibility  to  orbit  perturbing  forces. 

To  accomplish  this,  Lageos  was  given  a  spherical  shape  and  a  high  mass  to  area  ratio. 
The  spherical  geometry  provides  attitude  independence  and  a  large  surface  area 
compared  to  the  cross-sectional  footprint.  An  extra-atmospheric  orbit  altitude  was 
chosen  so  that  drag  is  negligible.  Axisymmetry,  i.e.,  the  body  has  only  two  independent 
principal  inertial  directions,  provides  a  stable  spin  axis  to  store  energy.  Finally,  materials 
were  chosen  to  minimize  the  influence  of  the  Earth’s  magnetic  field. 

Lageos  consists  of  a  spherical  aluminum  shell  wrapped  around  a  cylindrical 
beryllium-copper  core.  The  shell  is  constructed  of  two  30  cm  radius  hemispheres  of  6061 
aluminum  bolted  together  by  a  tension  stud.  The  external  surface  is  covered  with  426 
cube  corner  reflectors  (422  fused  silica  glass,  4  germanium)  each  3.8  cm  in  diameter, 
giving  it  the  appearance  of  a  giant  golf  ball.  The  literature  is  unclear  as  to  the  thickness 
of  the  shell;  although,  there  are  some  indications  that  the  cavity  is  just  large  enough  to 
house  the  brass  core.  This  is  important  in  that,  while  generation  of  magnetic  field 
induced  currents  seems  improbable  at  the  surface  due  to  the  presence  of  the  reflectors, 
one  can  surmise  a  boundary  layer  immediately  beneath  the  reflectors  inside  of  which 
such  currents  may  be  possible. 

The  beryllium-copper  core  measures  31.76  cm  in  diameter  and  26.70  cm  tall.  It  is 
connected  symmetrically  to  the  tension  stud,  i.e.,  the  body  axis  of  the  satellite. 
Disagreement  exists  in  the  literature  on  the  core’s  material  make-up — a  number  of 
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Aluminum  Shell  Reflectors 

Brass  Core 


Tension  Stud 

Figure  2.3  Notional  schematic  of  the  Lageos  satellite  structure 

sources  refer  to  it  as  brass.  However,  Rubincam  [1987],  citing  Johnson  et  al  [1976]  as 
the  authority,  directly  refutes  this  and  categorically  claims  the  beryllium-copper  makeup. 

The  cylindrical  core  gives  Lageos  a  concentration  of  mass  along  the  body  axis  while 
maintaining  rotational  symmetry.  The  result  is  axisymmetry  with  principal  axes  along 
and  orthogonal  to  the  body  axis.  The  corresponding  moments  of  inertia  are  h  = 
1.314xl08  g  cm2  and  I\  =  1.271xl08  g  cm2.  The  benefit  of  this  construction  is  the  ability 
to  “spin-up”  the  satellite  at  the  beginning  of  life  and  store  energy  as  spin  angular 
momentum  to  provide  additional  resistance  to  perturbations.  Table  2.1  summarizes  the 
properties  of  the  Lageos  spacecraft. 
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Table  2.1  Key  structural  properties  of  the  Lageos  Satellite 


Exterior  Shell 

Geometric  Shape 

Spherical  -  two  hemispherical  shells 

Material  Composition 

606 1  Aluminum  Alloy 

Gross  Dimension 

60  cm  diameter 

Surface  Features 

426  cube  corner  reflectors  3.8  cm  in  diameter 

Internal  Structure 

General  Features 

Cylindrical  core  connected  along  its  axis  to  the 
shell  by  a  tension  stud 

Core  Material  Composition 

Beryllium-Copper  Alloy 

Core  Dimension 

31.76  cm  diameter  x  26.70  cm  height 

Mass  Properties 

Total  Mass 

4.1 1x10s  g 

Principal  Moment  -  Axial 

I3  =  1. 314x10s  g  cm2 

Principal  Moment  -  Transverse 

Ii  =  1. 27 lx  10s  g  cm2 

2.3.2  The  Lageos  Orbit 

As  a  passive  satellite,  Lageos  has  no  mechanism  for  controlling  attitude  or  correcting  for 
orbit  disturbances.  Therefore,  in  addition  to  designing  the  spacecraft  to  inhibit  orbit 
perturbations,  the  orbit  itself  was  chosen  to  maximize  orbit  tracking  accuracy.  These 
decisions  have  helped  make  Lageos  the  most  accurately  tracked  satellite,  yielding  three- 
day  root-mean  square  fits  of  better  than  2  cm  [D],  To  better  describe  Lageos’  orbit 
properties,  and  to  establish  some  mathematical  conventions  used  in  the  model,  a  brief 
detour  is  necessary  to  discuss  the  source  of  our  orbital  data  for  Lageos  and  review  some 
basic  orbit  related  tenninology. 
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The  orbit  data  for  Lageos  is  made  available  courtesy  of  Kelso  [1998]  who  maintains  a 
complete  repository  of  ephemerides  for  most  of  the  non-classified  satellites  tracked  by 
NORAD  (North  American  Aerospace  Defense  Command)  is  available  at  [F] .  The  data, 
called  the  NORAD  Two  Line  Element  Sets  (2LES),  uses  the  standard  Keplerian  set  of 
elements  to  depict  the  orbit,7  which  can  be  described  as  elliptical  motion  in  a  given  plane 
(the  orbit  plane).  The  Keplerian  elements  locate  the  orbit  plane  in  inertial  space — 
inclination  right  ascension  of  the  ascending  node  or  raan  describe  the  ellipse  in 
the  orbit  plane — argument  of  perigee  “ oS\  semi-major  axis  “ a ”,  eccentricity  “e”;  and 
specify  the  satellite’s  motion — mean  anomaly  “M”,  mean  motion  (see,  e.g.,  Roy 
[1988]  or  Danby  [1992]).  Kepler’s  third  law  relates  the  mean  motion  to  the  semi-major 

o 

axis  so  the  two  are  redundant.  Therefore,  only  n  is  explicitly  provided  in  the  2LES. 


7  It  is  often  mistakenly  assumed  that  the  Keplerian  elements  describing  the  orbit  of  a  particular  satellite  are 
universal.  In  fact,  this  is  not  the  case.  Element  sets  for  orbiting  satellites  are  the  result  of  fitting  predictions 
from  a  specific  model — the  SGP4/SDP4  model  in  the  case  of  2LES  data — to  the  observed  data  (i.e.,  a 
nonlinear  optimization  is  done  to  find  the  parameters  that  generate  the  best  fit  to  the  data).  The  elements 
derived  from  a  given  observation  are  usually  weight-averaged  with  previous  solutions  to  reduce  the 
variability  from  one  set  to  the  next.  For  NORAD  2LES,  updated  element  sets  are  only  released  when  they 
differ  from  the  previous  set  by  more  than  a  threshold  amount.  It  should  be  understood  then,  that  the  data 
we  report  here  is  taken  from  the  2LES  and  so  is  specific  to  the  SGP4/SDP4  model.  Generally  speaking, 
these  values  cannot  be  plugged  directly  into  a  different  orbit  model.  For  more  on  this,  see  Kelso  [1998]. 

s  The  2LES  data  is  formatted  so  that  it  may  also  be  used  with  the  simpler  SGP  model  in  addition  to  the  full 
SGP4/SDP4  version.  The  latter  “recovers”  its  self-consistent  mean  motion  and  corresponding  semi-major 
axis  internally  (Floots  and  Roehrich  [1980]).  We  have  analyzed  both  versions  and  determined,  perhaps  not 
too  surprisingly,  that  the  “raw”  mean  motion  explicit  in  the  2LES  is  a  better  choice  for  simplified  work. 
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Figure  2.4  Graphical  definition  of  the  Keplerian  orbit  parameters 

Visual  depiction  of  Keplerian  orbit  parameters  and  related  definitions.  The  parameters  are  referenced  to 
the  Earth  Centered  Inertial  (ECI)  system.  Also  shown  is  the  orbital  angular  momentum,  L0,  which  is 
normal  to  the  orbit  plane.  The  remaining  features  are  explained  in  the  text. 


Figure  2.4  shows  the  spatial  relationship  between  the  orbital  system  and  the  ECI 
frame.  It  can  be  seen  that  the  three  angles,  Q,  i,  and  co  are,  in  fact,  Euler  angles  playing 
the  respective  roles  of  (j),  6 \  and  i//.  Also  shown  is  the  variable  /),  the  net  angular 
position,  i.e.,  the  angular  position  of  the  satellite  in  the  orbit  plane  relative  to  the  line  of 
nodes.  The  ascending  node  is  the  point  of  the  satellite’s  south-to-north  crossing  of  the 
equator.  The  line  through  this  point  and  the  origin  is  called  the  line  of  nodes.  For 
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elliptical  motion,  perigee9  is  the  point  in  the  orbit  of  closest  approach  to  the  mass  center 
and  lies  on  the  major  axis,  also  called  the  line  of  apses.  Completing  the  review  of  orbit 
related  terminology,  note  that  M  is  a  pseudo-position  angle  that  changes  uniformly  with 
time  by  M  =  n(t-t0 )  and  so  differs  periodically  from  the  true  angular  position  (true 
anomaly). 

It  is  typical  to  think  of  Keplerian  parameters  as  constants  (excepting  M  which  is  a 
type  of  instantaneous  “position”)  but,  in  fact,  the  orbit  parameters  are  dynamic  (e.g.,  the 
aforementioned  secular  decay  in  Lageos’  semi-major  axis).  It  can  therefore  be 
misleading  to  present  a  table  of  constant  Keplerian  elements  (or  their  linear  rates  of 
change)  as  representative  of  the  orbit  for  all  time,  or  even  for  a  period  of  time.  However, 
the  secular  change  of  these  parameters  for  Lageos  is  quite  small,  and  so  we  feel 
comfortable  providing  the  nominal  orbital  elements  in  Table  2.2  (page  46),  which  were 
derived  by  applying  constant  or  linear  best- fit  approximations  to  post  1990  2LES  data 
(see  Section  3.2). 

2.4  Summary 

Embedded  in  the  equations  of  motion  (1)  are  numerous  complexities  requiring  resolution 
before  progress  can  be  made  toward  a  solution.  In  particular,  the  general  problem  must 
be  formulated  in  terms  specific  to  the  Lageos  spin  dynamics  system.  To  that  end,  we 


9  This  is  an  Earth-specific  term,  the  more  general  term  is  pericenter. 
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have  established  essential  conventions  and  a  mathematical  framework,  described  the 
pertinent  dynamical  issues,  and  recast  the  equations  of  motion  in  a  form  suitable  to  the 
Lageos  spin  state  modeling  effort.  The  important  physical  and  orbital  characteristics  of 
the  Lageos  satellite  have  also  been  identified  to  facilitate  the  development  of  the  specific 
model  components.  With  this  foundation  in  place,  we  proceed  with  the  detailed 
construction  of  the  Lageos  spin  dynamics  model. 


Table  2.2  Nominal  Lageos  orbit  parameters 

Values  derived  from  the  NORAD  Two-Line  Element  Sets  data  for  the  period  since  1990. 
Semi-major  axis,  eccentricity,  and  inclination  are  mean  values  for  the  period.  The  angular 
measures — argument  of  perigee,  right  ascension  of  the  ascending  node,  and  mean 
anomaly — are  derived  from  linear  best-fit  approximations. 


Orbit  Parameter 

Symbol 

Nominal  Value 

Semi -Major  Axis 

a 

1.22712xl09  cm 

Eccentricity 

e 

0.00443 

Inclination 

i 

109.84° 

Argument  of  Perigee 

CO 

J2000  Value 

C0o 

211.82° 

Precession  period  of  the  Line  of  Apses 

T 

1  CO 

1681.6  JD 

Right  Ascension  of  the  Ascending  Node 

a 

J2000  Value 

n„ 

109.05° 

Precession  period  of  the  Line  of  Nodes 
(“orbital  precession”) 

Tn 

1050.9  JD 

Mean  Anomaly 

M 

J2000  Value 

M„ 

107.68° 

Mean  Motion 

n 

6.38665  rev/JD 
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3  The  Lageos  Spin  Model 

3.1  Overview 

We  have  previously  summarized  the  evolutionary  track  of  the  Lageos  Spin  Dynamics 
model  first  introduced  by  Habib  et  al  [1994]  and  later  modified  slightly  by  us  [Williams, 
1997].  In  the  ensuing  remarks,  we  shall  refer  often  to  these  models,  as  well  as  their 
revision  as  presented  here.  For  clarity  in  the  discussion,  we  designate  the  previous 
(combined)  efforts  as  the  H&W model  and  the  current  effort  as  the  W02  model.  It  usually 
will  not  be  necessary  to  distinguish  between  the  original  efforts  of  Habib  et  al  in  1994 
and  our  own  in  1997,  but  we  will  clarify  when  appropriate. 

Recall  that  while  the  H&W  model  yields  decent  results  and  qualitatively  captures  the 
spin  state  behavior,  it  still  falls  far  short  of  providing  reliable  and  specific  predictive 
results.  From  the  standpoint  of  dynamical  modeling,  therefore,  our  primary  goal  for  this 
effort  has  been  to  improve  the  predictive  nature  of  the  existing  model. 

The  thrust  of  our  work  also  necessitated  modifications  to  the  software  package. 
Considerable  effort  was  expended  improving  features  that  may  only  impact  the  quality  of 
the  dynamical  results  indirectly,  if  at  all.  Enhancements  include  the  type  of  data  sets  that 
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are  generated,  analysis  and  monitoring  of  numerical  integration  routines,  optimizing  code 
for  efficiency,  and  incorporating  a  nonlinear  optimization  package  for  model  parameters. 

Most  of  our  work  derived  not  from  any  specific  intent,  but  from  a  general  bottom-up 
approach  to  the  modeling  effort.  In  particular,  our  goal  was  to  critically  examine  every 
piece  of  the  H&W  model  (physical,  software,  etc)  seeking  opportunities  for 
improvement.  Of  course,  the  effort  was  tempered  by  the  need  to  refrain  from 
computational  excess  (the  model  must  be  run  in  finite  time!). 

For  the  model’s  physical  aspects,  we  introduced  modifications  that  more  closely 
approximate  Lageos’  true  environment,  regardless  of  the  pre-conceived  notion  of  the 
impact  on  the  predicted  dynamics.  In  some  cases,  these  efforts  were  rewarded;  in  others, 
not  much  response  was  observed.  Either  way,  the  work  succeeds  by  providing  empirical 
evidence  of  the  impact  (or  lack  thereof)  due  to  a  particular  enhancement.  The  remainder 
of  this  chapter  details  each  of  the  issues  that  captivated  our  attention  in  the  revision 
process. 

3.1.1  Errors  and  Basic  Modeling  Issues 

Modeling  error  is  referred  to  throughout  the  discussion.  This  is  a  generic  reference  to  the 
difference  between  our  spin  state  prediction  results  and  the  idealized  ‘true’  spin  state  of 
the  satellite.  Avizonis’  data  is  used  as  a  ‘truth’  proxy  for  comparison  purposes,  but  it 
represents  a  limited  data  set  and  is  subject  to  errors  of  its  own.  Therefore,  the  ‘truth’ 
target  we  seek  is  often  more  abstract  than  concrete. 
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A  useful  perspective  is  to  view  model  output  as  the  sum  of  the  system’s  true  response 
and  artificial  effects  introduced  by  the  model.  Artificial  effects  arise  from  both  the 
model’s  imperfect  approximation  of  the  physical  system  {model  fidelity)  and  the  inherent 
limitations  of  numerical  simulation  {model  implementation). 

Some  of  the  model  fidelity  related  issues  are: 

•  Absence  of  ‘real-world’  effects  we  neglect; 

•  Perturbations  of  modeled  effects  introduced  by  making  simplifying  assumptions; 

•  Errors  and  uncertainties  in  model  parameters  and  initial  conditions. 

Issues  related  to  model  implementation  include: 

•  Poor  conditioning  (an  inherent  property  of  the  system); 

•  Floating  point  arithmetic  error  (intrinsic  deficiency  of  computer  implementation); 

•  Numerical  integration  error  (property  of  the  integrator;  occurs  even  for  perfect 
arithmetic  and  conditioning). 

Some  of  these  ‘artificial  effects’  persist  no  matter  how  detailed  the  modeling  effort,  and 
so  the  results  will  always  have  some  error.  In  fact,  there  is  sometimes  a  direct  trade-off 
between  fidelity  and  implementation  concerns,  as  the  latter  tend  to  be  sensitive  to  the 
complexity  of  the  system.  Consequently,  we  focused  on  both  improving  the  fidelity  of 
the  model  and  ensuring  the  numerical  concerns,  particularly  the  integration  package,  are 
addressed. 
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3.2  Orbit  Propagation  Model 

Lageos’  response  to  the  space  environment  is  dependent  on  its  location  in  that 
environment.  Therefore,  an  orbit  propagation  module  is  needed  in  the  model. 
Presumably,  the  impact  of  “small”  position  detennination  errors  on  the  spin  state 
propagation  will  be  negligible.  Of  course,  “small”  is  ill  defined — how  small?  Moreover, 
the  response  may  not  be  negligible  if  the  “small”  position  errors  are  biased  rather  than 
random.  Still  another  issue  is  the  degree  to  which  present  and  future  improvements 
elsewhere  in  the  model  are  impacted  by  the  fidelity  of  the  satellite  position  determination. 
With  this  in  mind,  we  examine  the  implementation  of  the  orbit  module  in  the  H&W 
model  and  explore  whether  possible  improvements  generate  enough  impact  to  justify 
additional  computational  complexity. 

Use  of  a  full  dynamical  orbit  propagation  model,  such  as  the  SGP4/SDP4  model  used 
by  NORAD  for  the  2LES  data,  is  not  a  serious  consideration.  For  one  thing,  while 
propagation  from  a  set  of  elements  achieves  locally  precise  results,  significant  errors  can 
accumulate  over  longer  extrapolations.  It  would  therefore  be  necessary  to  incorporate  the 
full  2LES  database  to  ensure  only  local  propagation  is  perfonned  (element  set  to  element 
set).  More  importantly,  the  numerical  cost  of  this  approach  (with  or  without  the 
database)  is  disproportionately  expensive  compared  to  the  accuracy  gained  over  simpler 
ideas. 


50 


Chapter  3  -  The  Lageos  Spin  Model 


3.2.1  Simple  Orbit  Model 

Based  on  the  results  in  Chapter  2,  Lageos’  orbit  can  be  well  approximated  by  a  purely 
circular  motion.  This  is  the  approach  taken  in  the  H&W  model.  The  orbit  is  spatially 
located  by  a,  i,  Clj),  and  r/(t).  The  semi-major  axis,  a,  is  now  simply  the  orbital  radius; 
the  time  dependence  (linear  by  assumption)  of  the  right  ascension  of  the  ascending  node 
and  the  net  angular  position  is  explicitly  indicated.  We  define  Q  as  the  orbital 
precession  rate  and  use  mean  motion  to  determine  angular  position  (motion  is  uniform  for 
a  circular  orbit).  The  simplified  orbit  model  is  thus  given  by 

a 

i 

Q  =  Qt  +  Qa  21 

r/  =  nt  +  r/o 

requiring  six  parameters  to  be  specified. 

To  determine  the  orbit  model  parameters,  we  revisit  the  2LES  data.  The  plots  in 
Figures  3.1  and  3.2  show  historical  values  since  1990  of  the  relevant  Keplerian  elements. 
While  variation  is  present  in  the  data,  the  effects  are  quite  small.  For  example,  the 
periodic  oscillation  in  inclination  has  a  half- amplitude  of  about  1  at  Lageos’  altitude 
that  amounts  to  ~6  km  (at  apex)  spatial  error.  Likewise,  even  with  secular  decay  of  the 
semi-major  axis  evident,  the  mean  decrease  over  the  data  set  is  only  tens  of  meters. 
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Lageos  Orbit  Semi-Major  Axis 
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Figure  3.1  Historical  values  of  Lageos  orbit  semi-major  axis  and  inclination. 

Data  values  are  shown  as  the  scatter  of  diamonds  in  the  upper  half  of  the  graphs.  The  simple 
approximations  used  for  the  model  are  shown  as  overlaying  solid  lines,  and  the  corresponding  error  for  the 
approximations  are  shown  in  the  bottom  portion  of  the  plots. 
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Lageos  Orbit  Right  Ascension  of  the  Ascending  Node 


Time  -  Julian  Days  from  J2000 


Figure  3.2  Historical  values  of  Lageos  orbit  right  ascension  of  the  ascending  node 

The  data  shows  a  clear  linear  trend.  The  error  corresponding  to  the  best-fit  linear  approximation  is  shown 
in  the  bottom  portion  of  the  plot. 


The  situation  for  the  rate  values  ( Q  and  n)  is  perhaps  slightly  more  complicated 
because  errors  magnify  with  time.  The  scales,  however,  remain  small.  For  Q  (slope  of 
the  linear  approximation  to  fl),  the  resulting  error  in  Q  is  only  modestly  larger  than  that 
for  inclination.  Similarly,  the  model  value  for  n  departs  from  the  true  values  by  0(1  O'5) 
revs/day.  Even  for  a  persistent  bias,  this  totals  less  than  1.5°/yr. 

The  values  M0  and  rj0  at  t  =  0  are  dependent  on  the  time  convention  used.  Local  time 
(in  seconds)  was  the  format  in  the  H&W  model  with  t  —  0  corresponding  to  the  set  of 
initial  conditions.  The  W02  model  was  updated  to  utilize  the  JD2K  time  format.  This 
releases  us  from  re-evaluating  time-based  initial  values  for  integrations  starting  from 


53 


Chapter  3  -  The  Lageos  Spin  Model 


different  epochs.  Table  3.1  summarizes  the  orbit 

model  parameter  values  corresponding  to  (21).  Table  3.1  Parameter  values 

for  the  simple  orbit  model 


Careful  observers  may  have  detected  an 
omission.  While  circular  motion  can  certainly  be 
described  using  mean  motion,  the  net  angular 
position  of  Lageos  based  on  the  2LES  data  is  77  = 

M  +  co,1  not  the  rj  =  M  implicit  in  (21).  This  was 
an  oversight  of  the  H&W  model,  and  the  resulting 
orbit-track  errors  are  not  easy  to  ignore. 

Accounting  for  the  true  net  angular  position,  the  adjusted  mean  motion  becomes  n'  = 
6.386052  revs/day  which  differs  from  the  original  by  ~0.2  °/day  (about  78  °/yr).  To  the 
extent  that  effects  on  the  spin  axis  ‘smooth  out’  over  multiple  orbits,  this  error  may  not 
have  significant  impact.  Nevertheless,  it  is  an  easily  correctable  mistake  that  may  be 
meaningful  as  higher  precision  results  are  sought. 

Circularizing  the  orbit  also  places  the  orbit-center  at  a  focus  of  the  ellipse  describing 
Lageos’  true  orbit.  The  result  is  a  mean  bias  along  the  positive  semi-major  axis  of  about 
82  km.  While  interesting,  we  do  not  believe  this  otherwise  plays  a  meaningful  role. 


a 

1.22712xl09  cm 

i 

109.84° 

a 

109.05° 

Q 

0.3425558  °/JD 

Uo 

107.68° 

n 

6.386646  rev/JD 

1  Technically  co  is  not  defined  for  circular  motion  so  this  equation  is  an  abuse  of  notation.  However,  n  only 
accounts  for  the  motion  of  M  which  itself  refers  to  the  line  of  apses.  In  order  to  have  77  represent  the  net 
angular  position  from  the  line  of  nodes,  m  must  be  accounted  for  in  the  model’s  mean  motion. 
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3.2.2  Orbit  Model  Enhancements 

After  correcting  for  the  error  in  the  mean  motion,  the  results  obtained  above  for  a  circular 
orbit  seem  reasonable  enough.  However,  we  have  introduced  a  few  further  enhancements 
at  only  a  modest  additional  cost.  In  particular,  we  assume  quadratic  rather  than  linear 
time  dependence  for  77  and  relax  the  assumption  of  a  circular  orbit. 

The  2LES  data  is  derived  from  observations  always  taken  at  the  ascending  node  of 
the  orbit.  For  this  data  the  modulated  value  of 

rj  =  M  +  co  22 

should  be  very  close  to  zero,  deviating  only  to  the  extent  M  differs  from  the  true  anomaly 
(true  instantaneous  angular  position  with  respect  to  the  line  of  apses).  These  results  are 
verified  in  Figure  3.3.  Since  M  differs  from  true  anomaly  by  at  most  half  a  degree,  we 
continue  to  allow  it  to  approximate  true  anomaly  and  so  keep  77  in  the  form  of  (22). 
Using  the  2FES  revolution  numbers,  we  are  able  to  determine  the  monotonic  data  set  for 
(22)  and  so  apply  a  quadratic  approximation  for  use  in  the  model. 

It  remains  to  determine  the  instantaneous  radial  distance  for  the  elliptical  orbit.  This 
is  given  by 

r  =  a(l-ecosF')  23 


2  It  is  elementary  to  also  generate  a  sinusoidal  correction  to  account  for  the  mismatch  between  the  mean  and 
true  anomalies.  We  provide  such  an  option  in  the  model  but  don’t  recommend  it  due  to  the  complexity/cost 
vs.  benefit  gained. 
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Lageos  Orbit  Net  Angular  Position 


Time  -  Julian  Days  from  J2000 

Figure  3.3  Historical  values  of  Lageos  orbit  net  angular  position 

Lageos’  net  angular  position,  rj.  is  approximated  by  M+a>.  The  historical  modulated  values  of  M+a>  are 
shown  in  the  top  portion  of  the  graph.  Data  sets  are  always  recorded  as  Lageos  crosses  its  ascending  node 
(77  =  0);  therefore,  the  observed  zero-mean  sinusoidal  variance  is  the  error  in  using  mean  anomaly  to 
approximate  true  anomaly.  The  error  corresponding  to  a  linear  fit  of  the  monotonic  net  angular  position 
data  (not  shown)  is  plotted  on  the  bottom  portion  of  the  graph  and  evidences  an  underlying  quadratic  trend. 

where  E  is  the  eccentric  anomaly  which  satisfies 

E  -  e  sin  E  =  M  24 

This  can  only  be  solved  iteratively  for  E  but  for  small  e,  the  approximation 

E  «  M  +  esinM  25 

or  even  just  E  «  M  may  be  used.  This  requires  an  evaluation  of  M,  which  unfortunately, 
cannot  be  extracted  from  the  preceding  work.  By  (23),  any  errors  in  M  appear  in  r  as 
0((AM)2)  ;  so  we  simply  use  the  linear  approximation  implied  by  (21). 
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Implementation 

Together  these  ideas  provide  the  revised  orbit  propagation  algorithm.  Table  3.2  gives  the 
parameter  values  we  used  for  this  approach  and  the  algorithm  proceeds  as  follows: 

1 .  Input:  t  JD2K; 

2.  Constants:  a,  i,  e 

3.  Compute 

Q  =  Qt  +  Qa 

V  =  7/  +  7lt  +  do  26 

M  =  nt  +  Mo 

where  the  coefficients  on  the  right-hand-side  (RHS)  are  predetermined. 

4.  Set  E  =  M (or  use  (25))  and  evaluate  r  =  a(l-ecosE) 

5.  Calculate  the  ECI  unit  vector  r  as  the  first  row  of  (2)  using  f2,  i,  and  //  in 
place  of  (f),  6 \  and  ^respectively. 

The  effect  of  these  changes  is  a  reduction  of  the  radial  position  error  from  tens  of 
kilometers  to  tens  of  meters  and  the  elimination  of  the  secular  error  for  angular  position. 


Table  3.2  Revised  parameter  values  for  the  modified  orbit  model 


a 

1.2271 192x  109  cm 

e 

0.004432° 

i 

109.84° 

A 

109.05° 

Q 

0.342556  °/JD 

319.42° 

lv 

2298.97906  °/JD 

Ua 

1.7724xl0~7  °/JD2 

M0 

107.68° 

n 

2299.19273  °/JD 
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True,  the  cost  of  this  approach  more  than  doubles  that  of  the  simpler  version  above,  but  it 
remains  very  inexpensive  compared  to  the  overall  cost  of  the  model. 

3.3  Introduction  to  Environmental  Torques 

There  are  two  factors  mutually  important  to  modeling  the  torques  affecting  the  satellite 
spin  state:  1)  the  representation  of  the  spacecraft,  and  2)  the  representation  of  the 
environment.  These  factors  are  generally  intertwined,  though  more  in  some  cases  than  in 
others,  so  we  discuss  them  together  for  each  torque  source. 

Several  environmental  effects  potentially  impact  the  attitude  and  spin  of  a  satellite. 
The  most  prominent  are  (Hughes  [1986]): 

•  A  non-uniform  gravitational  field  over  a  material  body — gravitational  torque', 

•  The  collision  of  atmospheric  particles  with  the  spacecraft  surface — aerodynamic 
torque', 

•  The  transfer  of  electromagnetic  energy — radiation  torque', 

•  The  interaction  of  a  metallic  spacecraft  body  with  the  Earth’s  magnetic  field — 
magnetic  torque', 

•  The  ongoing  impact  of  micrometeoroids — meteoroidal  torque',  and 

•  The  deformation  of  the  spacecraft  body  due  to  a  non-unifonn  temperature 
gradient — thermoelastic  effects. 

Of  these,  two  are  dominant  for  the  Lageos  spin  dynamics,  the  gravitational  and  magnetic 
torques.  The  remaining  factors  are  insignificant  by  comparison,  though  thermoelastic 
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effects  present  some  compelling  issues,  and  so  are  not  included  in  the  spin  model.  We 
begin  with  a  discussion  of  these  unmodeled  effects  to  justify  their  exclusion  and  then 
move  on  to  the  gravitational  and  magnetic  torques. 

3.3.1  Unmodeled  Effects 

Surface  Effects 

Apart  from  the  thennoelastic  effects,  which  we  will  discuss  momentarily,  the  remaining 
sources  from  the  preceding  list — aerodynamic  torque,  radiation  torque,  and  meteoroidal 
torque — behave  according  to  a  similar  profile.  Each  concerns  the  bombardment  of  the 
satellite  surface  with  a  source  of  energy,  and  the  subsequent  reaction  is  a  function  of  the 
surface  geometry.  The  torque  induced  by  these  effects  is  a  function  of  the  satellite  center 
of  pressure,  cp ,3  and  is  given  by 

Ns  =  cpx  Fs  27 

where  Fs  is  the  net  force  on  the  surface.  However,  unlike  the  center  of  mass,  which  is  a 
fixed  reference  for  a  rigid  body,  cp  is  a  function  of  both  satellite  geometry  and  the 
direction  of  incident  momentum  ( angle  of  attack). 

There  are  then  two  conditions  for  negligible  torque  in  (27):  i)  the  magnitude  of  the 
force  is  small  and/or  ii)  the  force  acts  parallel  to  the  center  of  pressure.  We  have  already 
argued  that  Lageos’  orbit  places  it  beyond  the  realm  of  significant  atmospheric  disruption 

;  The  center  of  pressure  is  the  surface  effect  analog  to  the  center  of  mass  and  is  a  vector  quantity  defined 
with  respect  to  the  center  of  mass. 
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thereby  justifying  a  small  force  assumption.  Likewise,  Hughes  [1986]  has  shown  the 
surface  pressure  (force  per  area)  due  to  meteoroidal  impact  is  at  least  four  orders  of 
magnitude  smaller  than  that  of  solar  radiation  pressure.  However,  we  can  actually  show 
that  the  stronger  result  of  (ii)  holds  for  Lageos  due  to  spherical  surface  symmetry. 

The  center  of  pressure  is  given  by  the  surface  integral 

cg  =  //(cos  a)  cos  a  r  dA  28 


where  r  is  the  position  of  the  surface  element  dA,  and  a  is  the  corresponding  angle  of 
attack;  Ap  is  a  scalar  we  will  not  need  to  evaluate.  ll(x)  is  the  Heaviside  function 


H  W 


f 1  x  >  0 

[0  x  <  0 


29 


so  that  the  integration  (28)  takes  place  over  the  half-sphere  facing  the  incident  direction. 
The  integral  is  symmetric  about  the  incident  direction,  and  so,  cp  can  only  depend  on  this 
direction.  A  similar  symmetry  argument  shows  the  net  force  also  must  act  in  the  incident 
direction  (components  of  force  normal  to  the  incident  direction  cancel  when  integrated 
over  the  surface).  But  then  cp  and  Fs  are  parallel  (or  anti-parallel),  and  therefore  (27) 
vanishes.  There  is  no  net  torque  on  the  Lageos  satellite  due  to  surface  effects. 


Thermoelastic  Deformation 

Thermoelastic  effects  represent  a  particularly  intriguing  twist  to  our  problem.  They  are 
not  an  independent  source  of  torque,  but  rather,  a  perturbation  of  the  others.  For 
example,  the  effect  could  alter  the  axisymmetry  of  the  satellite  thereby  directly  impacting 
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the  equations  of  motion  (Chapter  2).  This  is  a  disturbing  possibility  and  perhaps  a  good 
candidate  to  explain  errors  in  the  results.  Unfortunately,  accounting  for  thermoelastic 
deformation  represents  a  significant  leap  in  complexity  and  other  concerns  were  more 
pressing  for  the  present  work.  Therefore,  this  aspect  of  error  remains  unexplored  but  we 
believe  it  merits  investigation  in  future  work. 

3.4  Gravitational  Torque  Model 

The  primary  force  for  orbiting  bodies  is  due  to  the  classical  —Hr  gravitational  field.  This 
force  is  also  one  of  the  two  dominant  factors  in  the  spin  dynamics  of  Lageos,  though  the 
reason  gravity  affects  satellite  attitude  is  perhaps  hard  to  believe.  Typical  satellite  orbital 
distances  from  the  mass  center  of  the  Earth  range  from  -6500  km  near  the  Earth’s  surface 
to  nearly  seven  times  that  distance  for  geosynchronous  orbits.  Intuitively,  one  would 
expect  the  small  A r  across  a  satellite’s  body  to  be  inconsequential  at  those  distances.  Yet, 
it  is  precisely  because  the  Earth’s  tug  on  the  nearer  parts  of  the  satellite’s  body  is 
infinitesimally  stronger  than  on  its  further  parts  that  gravity  torques  are  possible.  If  in 
addition,  the  satellite  has  a  spherically  asymmetric  mass  distribution,  gravitational  torque 
will  occur. 

The  axisymmetric  Lageos  is  therefore  subject  to  gravitational  torque.  Deriving  a 
general  expression  for  gravity’s  effect  the  attitude  of  Lageos  requires  a  consideration  of 
the  non-uniform  mass  distribution  of  both  the  Earth  and  the  satellite.  To  achieve  a 
completely  general  solution,  the  gravitational  tug  of  other  “nearby”  massive  bodies  (Sun, 
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Moon,  etc.)  must  be  evaluated  as  well.  This  complete  expression  for  the  torque  about  the 
center  of  mass  of  a  satellite  B  due  to  the  gravitational  influence  of /V  bodies  Bn  is  given  by 
Hughes  [1986]: 


N  =-' 


n= 1 


s  x  R 


b„  Jb  p 


—dm„dm 


30 


where  s  is  the  body  frame  position  of  the  satellite  mass  element  dm,  and  Rn  is  the  relative 
position  of  dm  with  respect  to  the  body  n  mass  element  dm,,.  Needless  to  say,  this  is  a 
somewhat  daunting  expression. 


3.4.1  Primary  Torque  Component 

Fortunately,  there  is  a  single  dominant  component  in  (30).  To  first  order,  the  general 
problem  reduces  to  that  of  a  single  primary  (Earth),  which  is  also  taken  to  have  a 
spherical  mass  distribution.  The  Earth  can  then  be  regarded  as  having  its  mass 
concentrated  at  its  center  (i.e.  a  point  mass  at  the  ECI  origin).  Thus,  (30)  becomes 

Ng=-^L^dm  31 

where  pe  =  GM  is  the  Geocentric  Gravitational  Constant  and  R  is  the  ECI  position  of  dm 
(Figure  3.4).  If  r  is  the  ECI  position  of  CMB  (i.e.,  body  frame  origin),  then  R  =  r  +  s  and 
we  may  write 
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Figure  3.4  Schematic  of  the  “simple”  gravitational  torque  problem  for  Lageos 

Reference  coordinate  axes  representing  the  Body  and  ECI  frames  are  exhibited.  The  satellite  mass  element 
dm  is  located  in  the  body  and  ECI  frames  respectively  by  s  and  R.  The  ECI  position  of  Lageos’  center  of 
mass  (CMb)  is  given  by  r. 


Ng=~/*e\  T^jdm.  32 

g  J^|r  +  s| 

The  solution  to  (32)  is  obtained  using  a  spherical  harmonic  expansion  for  the  satellite 
body;  although,  we  halt  our  development  before  obtaining  the  traditional  spherical 
hannonic  form.  First,  we  expand 


r  +  s 


(r  +  s)-(r  +  s ) 


33 
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with  y  the  direction  cosine  between  -r  and  s,  y  =  (-/')  •  s .  Since  s  «  r,  we  use  a 
binomial  series  to  obtain 


r  +  s 


f  \2 
'  s  ' 


n-H-l  +  W-OI  , 

\r)  2  \r) 


+  0 


\Sr>  j 
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This  is,  in  fact,  an  expansion  of  Legendre  polynomials  in  the  form 


1 

— — r  =  -2J-  P'W- 

r  +  s|  r^yr) 


35 


Returning  attention  to  (32),  we  can  reverse  the  cross  product  and  pull  the  constant  r 
out  of  the  integral.  Then,  using  the  results  above,  we  find5 


N=^rx 
g  r 


\sdm  +  3[  y— sdm  +  —  [  (5f2-l)| 

JB  JB  v  2  " B 


f  V 
'  s  ' 


\  dm  + . 
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The  first  integral  in  (36)  vanishes  by  definition  of  the  center  of  mass.  The  second  integral 
is  our  “first  order”  solution  for  the  gravitational  torques.  However,  before  simplifying 
this  solution,  we  can  make  a  more  general  observation.  Each  of  the  terms  of  the  series 
(36)  involves  polynomials  in  y,  and  so  they  reduce  to  integrals  of  the  form 


V 


.s  dm  =  — '  s)n  sdm  . 


37 


4  We  use  -r  to  conform  with  convention.  The  direction  cosine  for  spacecraft  positions  is  taken  with  the 
“down,”  i.e.,  Earth  pointing  direction. 

5  This  is  an  expansion  in  terms  of  Legendre  polynomial  first  derivatives. 
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Appealing  to  the  symmetries  of  Lageos,  we  claim  these  vanish  for  all  even  values  of  n. 
We  will  skip  the  details  but  sketch  the  argument.  Using  cylindrical  coordinates  (p,  0,  z), 
write  r  ■  s  =  r  i/xos#  +  r2psin0+  r^z  and  note  the  r,  are  constant.  Now  observe  each  term 
in  each  vector  component  of  ( rs)"s  includes  products  of  the  fonn  z" cos'  <9  sin11#  for 
integers  u,  v,  or  w.  Since  n  is  even,  only  one  of  u,  v,  or  w  can  be  odd.  If  u  is  odd,  the  z 
integral  will  vanish  due  to  the  reflective  symmetry  of  Lageos.  On  the  other  hand,  if  v  or 
w  are  odd,  Lageos’  rotational  symmetry  eliminates  the  0  integral.  This  completes  the 
argument. 

For  Lageos,  the  truncation  error  in  keeping  just  the  first  non-vanishing  term  in  (36)  is 
negligible.  After  integration,  the  series  contains  only  even  powers  of  Rrfr  where  R/_  is 
defined  as  the  radius  of  the  Lageos  spacecraft.  Using  appropriate  values,  this  results  in  a 
relative  error  for  the  primary  solution  of  O(10‘15).  Clearly,  one  cannot  hope  to  do  much 
better! 

We  now  proceed  to  put  the  solution  in  a  more  convenient  fonn.  First,  write 


where  we  have  expanded  y  and  extracted  the  constant  r  from  inside  the  integral.  Next, 

2 

we  can  add  a  zero  inside  the  integral  in  the  form  of  0  =  r  x  ( s  l)-r  so  that 

Ng  =  x(-  ^(s2 1  -  ss)  dmj-  r  =  39 
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using  (8)  to  achieve  the  final  form.  Now,  let  pt  be  the  body  frame  components  of  -  r  , 
i.e.,  pi  =  -r  ■  ef .  Since  /  is  diagonal  (recall  (10)),  we  finally  simplify  (39)  to 


Pi  Pi 

—  P\  Pi 

0 


40 


This  result  is  a  remarkably  simple  and  elegant  expression  for  the  gravitational  torques 
and  is  the  form  used  in  the  H&W  model.  There  is  very  little  room  (or  reason)  for 
improvement  with  this  result  from  a  satellite  properties  standpoint.  Therefore,  this  also  is 
the  basis  of  the  gravitational  torque  module  for  our  current  efforts. 

One  important  observation  about  (40)  is  that  the  torque’s  magnitude  is  proportional  to 
the  difference  in  the  principal  moments.  This  difference  is  small,  about  3%  of  their 
magnitude,  suggesting  a  small  relative  change  (or  error!)  in  the  principal  moments  could 
have  significant  impact  on  the  torques.  We  defer  the  evidence  and  further  discussion  of 
this  effect  to  Chapter  4. 


3.4.2  Higher  Order  Corrections 

While  the  higher  order  terms  from  the  satellite  spherical  harmonics  were  inconsequential, 
there  are  other  considerations.  The  two  assumptions  that  allowed  the  reduction  of  (30)  to 
a  manageable  form  are  now  examined  further. 

To  this  point,  we  have  considered  only  the  gravity  gradient  across  the  satellite  due  to 
the  Earth.  In  doing  so,  we  made  an  implicit  appeal  to  the  pj R]  scaling  of  the  problem. 
Still,  it  might  be  expected  that  the  Sun  (due  to  its  mass)  and  the  Moon  (due  to  its  relative 
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proximity)  make  non-trivial  contributions  to  the  net  effect.  However,  a  quick  calculation 
verifies  the  effects  are  negligible  from  a  practical  standpoint.  For  Lageos’  orbit,  both  the 
Sun  and  the  Moon  provide  a  relative  contribution  of  O(10"7)  as  compared  to  the  Earth. 

The  second  simplification  is  not  as  easily  justified.  The  Earth  is  not  a  spherically 
symmetric  mass.  Rather,  it  has  a  complex  mass  distribution  so  that  the  gravitational  field 
deviates  from  that  of  the  point-mass  approximation. 

As  with  the  satellite  body  above,  the  Earth’s  departure  from  sphericity  is  expressed  in 
tenns  of  spherical  harmonics.  The  development  is  identical  in  reverse.  The  satellite  is 
initially  considered  as  a  point  mass,  and  the  integration  performed  over  the  volume  of  the 
Earth.  Typically,  it  is  expressed  in  tenns  of  the  Geopotential 

U  =  -G\—dm  41 

JeR 

from  which  torques  can  be  derived  (see  e.g.,  Hughes  [1986]  or  Gill  &  Montenbruck 
[2000],  HR  has  the  Legendre  polynomial  expansion  of  (35)  where  .v  now  is  the  ECI 
position  of  the  Earth  mass  element  dme.  Rather  than  keeping  the  expression  in  terms  of 
the  direction  cosine  y,  however,  the  expansion  uses  latitudinal  and  longitudinal  angles,  X 
and  (f>  respectively.  Leaving  the  most  general  form  in  the  realm  of  geodesy,  we  note  that 
if  the  Earth  is  considered  to  have  rotational  symmetry  (e.g.  a  spheroid),  the  result  is  an 
expansion  in  terms  of  zonal  harmonics 


u  = 

(<  \ 
S~ 

1 

1 _ 

i 

(sin  X) 

r 

i=2  V  r  ) 
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where  Re  is  the  equatorial  radius  of  the  Earth,  and  the  zonal  coefficients  J,  are  empirically 
determined. 

For  Lageos,  Re/r  «  Vi  so  the  terms  do  not  diminish  as  rapidly  as  the  corresponding 
terms  for  the  satellite  body.  Fortunately,  the  first  of  the  zonal  coefficients,  Jj,  is 
dominant  by  better  than  2  orders  of  magnitude,  so  it  is  sufficient  to  examine  the  impact  of 
just  the  first  term  in  (42).  The  development  retraces  the  footsteps  of  the  previous  section 
now  with  an  additional  term.  It  is  exceedingly  messy;  we  refer  to  Hughes  [1986]  for  the 
details  and  merely  present  the  results: 

[  5(1  -  7sin2 \)p2p,  -  10sin^(Ar3f  +  p,T\ f  )  - 2T™.  T3f  " 

^=4tL(/3-A)  -[5(l-7sin24)AA-10sin4(Ar3f  +  PiT™)-2T™T™]  43 
Lr 

0 

where  the  A  are  as  in  (40),  Ac  is  the  latitude  (declination)  of  CMB,  and  the  T™  are  the 
components  of  the  ECI  z-axis  in  the  body  frame  (see  (2)). 

Implementation 

Equation  43  shows  that  the  correction  tenn 
for  the  spacecraft  torque  due  to  the  Ji  zonal 
harmonic  scales  to  Ji  IT  lr2  «  3x10  4  relative 

to  the  primary  tenn,  so  it  is  still  quite  small. 

Nevertheless,  we  believe  it  is  worth 
including,  particularly  for  high  accuracy 


Table  3.3  Parameter  values  for  the 
gravitational  torque  model 

The  Geophysical  constants  are  taken  from 
the  IERS  Conventions  document  [J];  the 
satellite  moments  were  stated  earlier. 


Me 

3.986004418xl02°  cm3s  2 

Jl 

1.0826359xl(T3 

Re 

6.3781366xl09  cm 

h 

1.271xl08  g  cm2 

h 

1.314xl08  g  cm2 
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work  as  the  model  evolves.  Accordingly,  we  have  made  this  correction  term  available  in 
the  model  as  a  selectable  option. 

Taking  advantage  of  efficiencies,  the  implementation  of  the  gravitational  torque 
component  in  the  W02  model  is  summarized  as: 

1 .  Given  r;  Constants  &  Parameters:  pe,  I\,  h,  J2 

2.  Compute  (px,  p2,  p2)  =  TEB  •  (-r) 

3.  Set  Pi=PiP 

r 

4.  Evaluate  Ng  =  (pxp2,  -/?,/?,,  0) 

If  higher  order  correction  is  selected  .  .  . 

I  R 2  r  l 

5.  Set  P2  =  P’  u,  =  5  [1  -  7(r3E)2  J  p3 ;  a2=  -10 r2  ;  a2  =  -IT™  where 

we  note  that  sin  Xc  =  rE  . 

a\Pl  +  Py^23  )  a3^23 

6.  Add  correction  tenn  N g  =  Ng  +  fi2  -  \axpx  +  a2(pxT™  +  p3T™)  +  a37[EB] 

0 

Table  3.3  shows  the  values  we  have  used  in  the  model  for  the  equations  above. 

A  final  remark  before  we  move  on.  In  most  cases,  the  additional  computational  cost 
and  complexity  of  incorporating  the  J2  term  into  the  magnetic  torque  calculation  is 
probably  not  rewarded  with  a  meaningful  change  in  spin  state  behavior.  Possibly,  such 
effects  can  be  mostly  accounted  for  with  much  less  cost;  referring  to  (43),  we  see  a  way 
to  proceed. 
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Averaging  the  latitudinal  dependence  over  an  orbit,  the  center  term  will  vanish  (in 
approximation),  and  the  first  term  evaluates  to  a  coefficient  an  order  of  magnitude  larger 
than  the  final  term.  It  is  reasonable  to  assume  the  two  corresponding  component  products 
PiPi  and  T™T™  have  roughly  the  same  magnitude.  Therefore,  the  latter  can  be 
discarded  in  approximation  due  to  the  larger  coefficient  of  the  former,  and  we  obtain 


A JV„ 


I  PlPi 


4^5(l-7sin34) 

2  r 


=  N„ 


2&5(l-7sin24) 
2  r 


44 


Evaluating,  we  find  A N  «  -lx  10  3  •  A',, .  Therefore,  to  incorporate  the  zonal  term  effect 
as  an  approximation,  we  are  led  to  consider  a  parameterization  of  the  form 

A Ng  «-e-Ng  45 

■j 

where  s  is  a  parameter  on  the  order  of  10" . 

This  approach  is  available  as  a  selectable  option  in  the  model.  However,  none  of  the 
analysis  we  perfonned  made  use  of  this  feature. 


3.5  Magnetic  Torque  Model 

Modeling  the  effects  of  the  spacecraft’s  interaction  with  the  Earth’s  magnetic  field  is  by 
far  the  most  interesting  and  challenging  aspect  of  this  work.  Unlike  the  situation  for 
gravitational  torques  where  the  problem  is  well  defined  (and  thoroughly  investigated), 
numerous  uncertainties  and  a  dearth  of  resources  pervade  the  magnetic  torque  problem. 
Even  if  we  had  a  good  understanding  of  the  electric  properties  of  the  satellite  (we  don’t), 
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Lageos  Spin  Angular  Velocity 


Time  (JD2K) 


Figure  3.5  Historical  values  of  Lageos"  body  spin  rate 

Empirical  spin  rate  values  for  Lageos  as  determined  by  Avizonis  [1997]  are  shown.  The  data  is  overlaid  by 
a  best-fit  exponential  decay  curve  that  suggests  a  decay  half-life  of  approximately  780  JD.  Reproducing 
this  behavior  is  a  primary  concern  in  choosing  parameter  values  for  the  magnetic  torque  model 

there  still  remains  a  problem  that  is  scarcely  mentioned  in  the  literature,  even  in  its  most 
general  abstraction.  Before  we  get  too  far  ahead  of  ourselves,  though,  we  begin  with  a 
summary  of  the  situation. 

Magnetic  torques  arise  as  a  result  of  the  interaction  of  the  metallic  body  of  the 
spacecraft  with  the  magnetic  field  surrounding  the  Earth.  The  effect  is  a  consequence  of 
the  motion  of  the  satellite  with  respect  to  the  field — primarily  spin  early  in  life  but  later 
also  the  orbital  motion.  This  results  in  the  generation  of  eddy  currents  that  induce  a 
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dipole,  which  then  reacts  with  the  field  to  cause  torque  on  the  satellite.  The  eddy  currents 
also  produce  heat  so  that  energy  is  dissipated,  i.e.,  the  spin  rate  decays  (Figure  3.5). 
Chobotov  [1991]  provides  the  torque  expressions  for  these  two  interactions: 


N  =  MxB 

m 

46 

Nec  =  k(io  xB)xB 

47 

where  M  is  the  net  magnetic  moment  of  the  satellite,  B  is  the  magnetic  field,  and  k  is  a 
constant  that  depends  on  the  geometric  and  electric  properties  of  the  satellite.  If  the 
rotation  of  the  satellite  is  properly  accounted  for  in  the  determination  of  the  magnetic 
moment,  M,  then  (46)  implicitly  includes  the  eddy  current  torque  of  (47). 

From  equation  (46)  it  is  clear  that  the  problem  of  magnetic  torques  involves  two 
parts,  one  concerning  the  spacecraft — determining  the  magnetic  moment  M,  and  one  a 
purely  environmental  issue — determining  the  magnetic  field  B.  While  some  uncertainties 
exist  with  both  aspects,  the  former  is  where  most  of  our  issues  lie.  We  tackle  the 
magnetic  field  model  first  and  then  proceed  to  the  intricacies  of  the  spacecraft  model. 

3.5.1  Earth  Magnetic  Field 

The  magnetic  field  near  the  Earth  is  the  combined  effect  of  three  sources — the  Main 
Field  due  to  currents  in  the  outer  core,  the  Crustal  Field  resulting  from  magnetized  rock 
near  the  Earth’s  surface,  and  the  External  Field  generated  by  charged  particles  in  the 
space  environment  [L].  There  is  therefore  an  inherent  ambiguity  in  references  to  the 
“Earth  magnetic  field”  because  it  is  not  always  clear  which  effects  are  included.  Typical 
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for  problems  of  the  sort  discussed  here  is  to  treat  the  net  of  internal  effects  with  a  single 
field  model  and  ignore  external  effects  altogether.  We  proceed  in  this  manner  as  well, 
noting  the  external  field  contributes  less  than  1%  of  the  net  field  at  Lageos’  altitude.6  It  is 
almost  convention  to  identify  the  net  field  due  to  only  internal  sources  as  the  geomagnetic 
field',  we  make  it  convention  here. 

The  general  approach  for  the  geomagnetic  field  model  then  proceeds  much  like  the 
gravitational  case  above.  In  particular,  the  field  can  be  expressed  in  tenns  of  the  gradient 
of  a  scalar  potential  that  satisfies  a  differential  equation.  This  leads  to  an  integral  of  the 
type  in  (41)  (see,  e.g.,  Jackson  [1975]).  We  have  already  seen  this  to  have  solutions  in 
tenns  of  spherical  harmonics.  Therefore,  in  complete  agreement  with  the  gravitational 
case,  high  precision  geomagnetic  field  models  are  expressed  as  a  spherical  harmonic 
series.  The  corresponding  empirically  determined  series  coefficients  are  called  Guass 
Coefficients  (Campbell,  [1996]).  Unlike  the  gravitational  case,  however,  the  magnetic 
field  is  dynamic  so  new  sets  of  Gauss  Coefficients  are  required  on  a  regular  basis  to  keep 
up  with  the  time-dependent  system.  We  will  return  to  this  thought  shortly,  but  first 
investigate  the  simpler  approaches  employed  in  the  H&W  model. 


6  The  1%  value  for  the  external  field  contribution  is  based  on  empirical  analysis  we  performed  using  the 
web-based  Tsyganenko  T96  01  External  Field  Model  at  [M],  It  is  consistent  with  the  generally  reported 
values  of  <  1-2%  for  satellites  in  low  and  medium  orbits. 
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Simple  Magnetic  Field  Model 

Some  of  the  basic  features  of  the  Earth’s  magnetic  field  are  familiar  in  everyday  life — a 
magnetic  north  pole  located  in  the  general  vicinity  of  the  geographic  north  pole  and  a 
“mysterious”  force  that  causes  compass  needles  to  point  toward  it.  Extrapolating  a  bit, 
we  find  the  magnetic  field  near  the  Earth  behaves  a  lot  like  that  of  the  simple  dipole 
introduced  in  an  elementary  physics  class.  Indeed,  about  90%  of  the  geomagnetic  field  is 
explained  by  a  dipole  approximation  with  an  axis  inclined  by  about  11°  from  the  Earth’s 
spin  axis  (Chobotov,  [1991]).  Accordingly,  this  type  of  approximation  is  frequently  used 
to  model  the  magnetic  field  experienced  by  orbiting  satellites. 

The  dipole  field  at  the  satellite  is  given  by  (e.g.,  Jackson  [1975]) 

B  3,*(r  V/  )  /•  .V/  48 

r5 

where  Me  is  the  geomagnetic  dipole  moment  vector.  Specifically,  M:,  lies  along  the 
dipole  axis  in  the  magnetic  north  direction;  its  magnitude  determines  the  strength  of  the 
field.  A  nominal  value  for  Me  is  7.8x  1 0  guass  cm  ,  though  recall  the  field  is  dynamic 
so  this  value  is  non-constant  in  time. 

Both  the  initial  version  of  the  H&W  model  and  the  Williams  [1997]  update  use  a 
dipole  approximation  as  in  (48).  The  first  implementation  (i.e.,  Habib  et  al  [1994]) 
resolved  the  dipole  along  the  Earth’s  spin  axis,  removing  time  dependence  due  to  the 
Earth’s  rotation.  This  gave  the  general  spin  propagation  problem  complete  rotational 
independence  and  so  allowed  a  number  of  other  simplifications  as  well  (e.g.,  ignoring 
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precession  of  orbit  plane).  Given  the  angle  between  the  “true”  dipole  axis  and  the  Earth’s 
spin  axis  is  only  11°,  this  is  certainly  reasonable,  particularly  in  light  of  the  purpose  of 
their  efforts. 

Nevertheless,  we  felt  it  was  important  to  include  the  rotating  dipole  in  the  1997 
revision  of  the  model.  Unfortunately,  we  introduced  the  pole  with  a  minor  error,  though 
we  take  comfort  that  we  are  not  alone  (Campbell,  [1996]).  The  geographic  position  of 
the  magnetic  dipole  north  pole  is  quite  distinct  from  the  “magnetic  north”  that  attracts 
compass  needles.  The  reason  is  that  the  dipole  approximation  is  actually  just  the  first 
tenn  of  the  spherical  harmonic  expansion  for  the  geomagnetic  field.  As  such,  dipole  pole 
positions  are  determined  by  the  Guass  Coefficients,  which,  in  turn,  represent  the  ‘best  fit’ 
of  the  spherical  harmonic  model  to  the  field  everywhere,  not  just  at  one  point.  Magnetic 


Table  3.4  Recent-history  north  pole  locations  for  the  geomagnetic  field  dipole  approximation 

The  first  order  approximation  to  the  Earth’s  magnetic  field  is  a  centered  dipole  with  axis  inclined  relative 
to  the  Earth’s  rotation  axis.  The  geographic  pole  locations  wander  in  time  due  to  the  dynamic  nature  of  the 
magnetic  field.  The  location  of  the  northern  hemisphere  pole  is  shown  for  a  period  spanning  Lageos’ 
orbital  life.  Also  shown  is  the  corresponding  magnetic  dipole  moment.  The  data  is  computed  from 
coefficients  in  the  IGRF  model.  The  2005  data  are  based  on  a  linear  extrapolation  of  model  parameters. 


Year 

Dipole  Moment 

xlO25  gauss  cm3 

Latitude 

Longitude 

1975 

7.939 

78.69° 

289.53° 

1980 

7.907 

78.81° 

289.24° 

1985 

7.871 

78.97° 

289.10° 

1990 

7.841 

79.13° 

288.89° 

1995 

7.812 

79.30° 

288.59° 

2000 

7.788 

79.54° 

288.43° 

2005 

7.764 

79.75° 

288.27° 
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north,  on  the  other  hand,  is  the  Earth  surface  location  where  the  magnetic  field  lines 
happen  to  be  the  most  vertical.  Ideally,  the  two  poles  would  be  the  same  but,  in  fact,  they 
can  differ  by  as  much  as  30°  longitude. 

The  impact  of  this  error  on  earlier  data  sets  was  minor,  with  measurable  effects 
showing  up  only  for  very  long  integration  intervals.  The  correct  dipole  moment  position 
and  magnitude  parameters  are  given  in  Table  3.4.  However,  the  use  of  the  dipole 
approximation  as  a  stand-alone  option  has  been  replaced  in  our  new  version  by  the 
method  of  the  following  section. 

International  Geomagnetic  Reference  Field  Model 

Consistent  with  our  “bottom-up”  theme,  we  are  not  inclined  to  be  satisfied  with  a  90% 
accurate  approximation  to  the  Earth’s  magnetic  field,  particularly  in  light  of  the  scale  of 
the  corrections  we  suggested  in  previous  sections.  Given  the  similarity  between  the 
general  representations  of  the  gravitational  and  magnetic  fields,  we  might  also  expect  the 
high  accuracy  improvement  for  the  magnetic  model  to  proceed  analogous  to  the 
gravitational  model.  However,  because  the  geomagnetic  field  is  computed  independent 
of  spacecraft  properties,  things  are  not  quite  so  messy  here.  All  we  require  is  a  straight 
evaluation  of  the  spherical  hannonic  series. 

Fortunately,  this  work  is  already  done  for  us.  The  International  Association  of 
Geomagnetism  (IAG)  publishes  the  International  Geomagnetic  Reference  Field  (IGRF) 
with  Guass  Coefficients  up  to  the  10th  term  of  the  spherical  hannonic  series.  The 
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Lageos  Orbit  Position  Geomagnetic  Field  Strength  Errors 


Figure  3.6  Sample  dipole  and  octupole  magnetic  field  strength  errors  at  Lageos  orbit  positions 

Dipole  and  octupole  geomagnetic  field  approximations  were  computed  at  Lageos’  orbit  positions  for  a  ten- 
day  time  interval  using  a  course  sampling  interval  (14  day).  The  plot  shows  the  relative  errors  of  the 
approximations  as  compared  to  the  full  (10-stage)  IGRF  model.  The  octupole  expansion  represents  a 
reasonable  balance  between  accuracy  and  computational  cost. 


coefficients  are  updated  every  5 -years  and  the  I  AG  recommends  a  discrete  year-to-year 
linear  interpolation  to  adjust  coefficients  between  the  published  data  sets  [P] .  The  IGRF 
includes  source  code  and  so  we  have  incorporated  the  model  directly  into  our  own  (we 
use  the  GEOPACK  adaptation  by  Tsyganenko  [i]).  However,  it  is  excessive  (and 
computationally  expensive)  to  use  the  full  10-term  expansion.  We  have  therefore 
included  an  option  to  define  the  number  of  terms  (n  =  1  to  10)  to  be  used.  Empirical 


77 


Chapter  3  -  The  Lageos  Spin  Model 


observation  has  led  us  to  favor  the  octupole  expansion  n  =  3  as  a  balance  between 
accuracy  and  computational  cost  (Figure  3.6).  The  additional  advantage  of  this 
implementation  is  the  dipole  approximation  is  still  available  (n  =  1)  for  less  precise  work. 

3.5.2  Probing  the  Satellite  Magnetic  Torque  Problem 

We  return  our  gaze  to  (46) 

Nm  =MxB  46 

Unfortunately,  the  situation  for  M  is  not  as  easily  resolved  as  for  B.  The  complexities 
involved  with  deriving  an  appropriate  model  for  the  satellite  are  many  and  a  number  of 
significant  abstractions  will  have  to  be  made  in  order  to  proceed. 

Recall  the  mechanism  for  magnetic  torque  is  the  generation  of  eddy  currents  in  the 
satellite  body.  So  the  question  is,  how  are  such  currents  encouraged  or  inhibited  by 
Lageos’  structure?  Were  Lageos  a  homogeneous  body  with  desirable  geometry,  the 
problem  would  at  least  be  tractable;  although,  even  then  the  situation  is  hardly 
straightforward.  Of  course,  Lageos  is  not  at  all  homogeneous,  even  if  it  is  relatively 
simple.  Therefore,  we  seek  first  to  obtain  a  basic  understanding  of  its  structures  as  they 
apply  to  the  magnetic  torque  problem.  To  summarize: 

•  The  degree  of  electrical  connectivity  between  the  three  major  parts — the  two 
hemispheres  and  the  core — is  uncertain.  Bertotti  &  less  [1991]  have  argued  that 
oxidation  on  the  aluminum  surfaces  makes  it  likely  that  these  components  are  in 
poor  electrical  contact  and  so  can  be  considered  as  three  distinct  conductors. 
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•  The  beryllium-copper  core  seems  to  be  the  best  candidate  for  sustainable  eddy- 
current  generation  because  it  is  geometrically  convex  and  materially 
homogeneous. 

•  Current  generation  in  the  shell  is  uncertain.  The  lack  of  electrical  contact  between 
the  two  hemispheres  would  seem  to  inhibit  current  generation  as  does  the 
presence  of  the  retroreflectors  at  the  surface.  Contrary  to  the  latter,  however,  if 
the  shell  is  sufficiently  thick,  there  is  no  reason  to  believe  currents  can’t  exist 
inside  the  reflector  layer.  This  is  particularly  true  at  low  frequencies  when  the 
‘skin  effect’  (concentration  of  currents  at  the  surface)  is  less  likely.  Clearly,  the 
situation  is  mixed  for  the  shell  and  it  will  be  difficult  to  properly  account  for  the 
effects. 

•  The  shell  may  provide  some  degree  of  electromagnetic  shielding  to  the  field 
experienced  by  the  core.  Jackson  [1975]  shows  that  for  a  non-rotating  spherical 
shell,  shielding  merely  acts  to  dampen  the  magnitude  of  the  field  inside  the 
shell — the  direction  remains  unchanged.  For  rotation  and/or  variable  fields, 
however,  the  situation  is  more  complex. 

•  There  are  several  different  alloys  associated  with  both  6061  aluminum  and 
beryllium-copper  with  a  range  of  electrical  properties  in  each  case.  According  to 
[Q],  the  range  of  effective  conductivities  for  6061  aluminum  is  2.04xl017  to 
2.37xl017  s'1  and  the  range  for  beryllium-copper  is  0.88xl017  to  l.lOxlO17  s'1. 
Other  sources  list  values  that  sometimes  fall  outside  of  these  ranges. 
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In  addition  to  the  uncertainties  about  the  satellite  discussed  above,  there  are  other 
complicating  factors  with  regard  to  the  basic  problem.  In  particular,  the  magnetic 
moment  induced  on  the  satellite  depends  on  the  motion  of  the  magnetic  field  relative  to 
the  spacecraft.  For  a  simple  periodic  field,  Landau  &  Lifshitz  [1984]  (henceforth  L&L) 
show  it  is  possible  to  provide  an  expression  for  the  induced  magnetic  moment  for 
relatively  simple  media.  We  make  use  of  these  results  in  the  sequel  because  they 
represent  the  closest  approximation  in  the  literature  to  the  problem  at  hand  but  they  fall 
short  of  ideal.  In  the  case  of  Lageos,  the  field  varies  on  several  different  periodic 
timescales — the  spin  of  the  satellite,  the  orbital  motion,  and  the  rotation  of  the  Earth — so 
a  generalization  of  the  L&L  result  to  a  multiple  frequency  case  is  desired.  Moreover,  the 
‘simple’  media  considered  by  L&L  is  at  best  a  loose  approximation  to  the  conductors 
aboard  Lageos.  Unfortunately,  a  rigorous  extension  of  the  L&L  results  to  accommodate 
these  deficiencies  is  far  from  trivial  and  ultimately  unpractical. 

Therefore,  some  very  basic  decisions  must  be  made  about  how  to  represent  Lageos  in 
the  magnetic  torque  module.  The  H&W  model  chose  to  use  the  L&L  result  (single 
frequency,  homogeneous  sphere)  directly  as  a  single  approximation  for  the  entire 
response  of  the  satellite.  Obviously,  based  on  the  preceding  arguments,  such  an  approach 
necessarily  omits  dynamics  important  to  accurate  prediction  of  the  satellite  spin  state. 
Nevertheless,  the  approach  remains  as  the  central  element  even  for  the  present  work 
(W02  model),  though  we  have  found  ways  to  improve  upon  the  basic  idea  and  capture 
additional  effects. 
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3.5.3  Primary  Magnetic  Torque  Model 

Two  observations  help  justify  the  direct  application  of  the  L&L  solution  to  detennine  the 
magnetic  torque  affecting  Lageos.  First,  for  frequencies  on  decidedly  different  scales, 
only  the  highest  plays  a  significant  role  in  the  torque  problem.  For  Lageos,  the  spin 
frequency  has  been  dominant,  allowing  other  timescales  to  be  neglected  in  the  earlier 
modeling  work.  Unfortunately,  however,  the  spin  rate  is  now  rapidly  approaching  the 
orbital  frequency7  due  to  the  ongoing  decay.  Indeed,  perhaps  extending  as  far  back  as  a 
decade,  the  relative  scale  of  the  orbital  frequency  has  been  large  enough  that  the 
corresponding  effects  contribute  non- trivially  to  the  results.  Still,  as  a  first  order 
approximation,  only  the  spin  frequency  is  considered. 

Second,  the  current  inhibiting  features  and  higher  effective  conductivity  of  the  shell 
make  its  contribution  to  the  magnetic  torque  comparatively  small  relative  to  the  core. 
Therefore,  only  the  core  need  be  considered  in  the  model  and  it  is  reasonably 
approximated  by  a  sphere.  Thus,  the  problem  reduces  to  that  of  a  homogeneous 
conducting  sphere  rotating  uniformly  in  a  static  external  field.  We  now  summarize  the 
L&L  solution  for  this  problem. 


7  The  field  frequency  due  to  the  orbital  motion  is  actually  twice  the  orbit  frequency  because  of  the  pseudo¬ 
symmetries  of  the  magnetic  field.  It  is  therefore  a  bit  of  an  inaccuracy  to  speak  of  the  “orbit  frequency”  but 
it  is  more  convenient  to  do  so  and  satisfies  the  general  context.  We  will  return  to  the  point  in  more  detail 
later.  In  the  mean  time  one  may  substitute  “twice  the  orbit  frequency”  every  time  the  orbit  frequency  is 
mentioned.  That  established,  note  that  the  present  day  spin  frequency  of  Lageos  differs  from  this  2x  orbit 
frequency  by  little  more  than  a  factor  of  two. 


81 


Chapter  3  -  The  Lageos  Spin  Model 


Figure  3.7  Schematic  of  the  Landau-Lifshitz  reference  frame 

The  Landau-Lifshitz  frame  is  constructed  so  that  a  and  B  lie  in  the  x-z  plane  with  a>  along  the  z-axis.  A 
notional  representation  of  the  Lageos  satellite  is  shown  for  illustration  purposes. 


Landau-Lifshitz  Coordinate  Frame 

The  principle  results  from  L&L  are  expressions  for  the  coefficients  of  magnetization  of 
the  sphere  and  the  Landau-Lifshitz  reference  frame  (LL)  in  which  these  can  be  used  to 
compute  the  magnetic  moment  of  the  sphere,  M,  and  the  corresponding  torques.  The  LL 
frame  is  constructed  so  that  the  field,  BL,  has  no  v-component  and  the  angular  velocity,  ox 
is  along  the  z  axis  (Figure  3.7).  This  is  accomplished  by  defining  the  LL  basis  vectors  as 

(elf  =((obxBb)xo)b 

(elf  =  (oB  x  Bb  49 

/  L\B  ,  B 

(<?3)  =co 
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where  the  scaling  to  unit  magnitude  is  implicitly  understood.  We  have  expressed  the 
result  in  relation  to  the  body  frame  as  a  convenience  with  an  eye  toward  implementation. 
Accordingly,  we  define  the  transfonnation 

W 

Tbl=  (e\f  50 

l(‘3L)Bj 

so  that  the  LL  components  of  B  can  be  determined 

Bl=Tbl  Bb=  0  51 

rtB  /  L\B 

■  03 )  J 

Magnetic  Moment  and  Torque 

In  a  moment  we  outline  L&L’s  derivation  of  the  coefficients  of  magnetization,  a'  and  a" , 
for  the  sphere  in  this  problem.  Once  these  are  known,  the  magnetic  moment  and  torque 
are  readily  computed.  By  the  construction  of  the  LL  frame,  the  field  is  not  variable  in  the 
z  direction  and  so  does  not  induce  a  moment  in  that  direction.  The  coefficients  of 
magnetization  give  the  components  of  the  magnetic  moment  parallel  to  and  perpendicular 
to  the  plane  defined  by  a>  and  B  so  that 

'Va'Bl' 

Ml  =  Va"B\  .  52 

0 
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where  V  is  the  volume  of  the  sphere,  V  =  j  na 3 .  The  torque  is  then  immediately  obtained 
from  (46) 


Nl  =  MlxBl 

m 


'  Va"B\B 3l> 
-  V a  B\B\ 


53 


This  result  can  then  be  transformed  back  to  the  body  frame  by  A,rli  =  (T'n  )  ■  N'  and 
linearly  superposed  with  Ng  obtained  earlier  to  determine  the  net  torque  on  the  satellite. 


Coefficients  of  Magnetization 


It  would  be  convenient  to  simply  state  the  results  of  L&L’s  development  but  it  will  be 
more  useful  to  our  later  analysis  to  provide  some  of  the  details.  The  coefficients  of 
magnetization  are  derived  from  the  standard  macroscopic  field  equations  in 
magnetostatics  and  the  general  process  is  as  described  by  Jackson  [1975].  However,  a 
reasonable  solution  presents  itself  only  under  the  simplest  of  assumptions.  Anticipating 
the  notation,  we  define  the  penetration  depth,  8,  and  a  complex  scalar  constant,  k,  such 
that 


8  = 


V2 


k2  = 


71(7(0 


1  +  / 


4  tucjco 
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where  c  is  the  speed  of  light  and  cr  is  the  effective  conductivity.  The  situation  considered 
by  L&L  is  for  quasi-static  magnetic  fields,  which  they  define,  and  we  do  not  (for 
brevity).  In  short,  it  allows  the  field  immediately  outside  the  sphere  to  be  described  by 
the  homogeneous  equations 
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V  Bx  =  0 

V  x  H  =  0 


55 


where  p  is  the  magnetic  permeability.  L&L  argue  that  p  can  be  set  to  unity  without  loss 
of  generality  (it  differs  from  unity  only  slightly  for  diamagnetic  and  paramagnetic  bodies) 
and  so  it  is  dropped  from  the  remainder  of  the  discussion. 

The  equations  (55)  satisfy  continuous  boundary  conditions  at  the  surface  (i.e.,  must 
equal  the  solution  for  the  field  inside  the  sphere)  and  must  vanish  at  infinity.  Since 
V  x  H  =  0 ,  the  field  can  be  derived  from  a  scalar  potential,  Hx  =  -V <f>  +  B  ,  which  leads 


to  an  instance  of  LaPlace’s  Equation,  V2^  =  0  .  Also,  (f>  depends  linearly  on  B ,  so  L&L 
write  (f)  =  - VaB  •  V(1  Jr)  ,  where  V  is  the  volume  of  the  sphere  and  a  is  a  to  be  determined 

complex  integration  constant.  Applying  the  gradient  and  simplifying,  the  field  outside 
the  sphere  has  the  form 

V ry 

Hx=-^[3(B-r)f-B\  +  B  56 

r 

Inside  the  sphere,  the  presence  of  current  leads  to  the  equations 


V  •  B, .  =  0 


V  x  (V  x  H,)  =  -ik2 


dH^ 

8t 


B,  =  pH , 
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These  also  satisfy  the  continuous  boundary  conditions  and  must  be  finite  at  the  origin.  In 
a  coordinate  frame  in  which  the  sphere  is  fixed,  the  unifonn  periodic  external  field  has 
the  form 


B  =  Boe~Uot 


58 
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where  B0  is  a  constant  complex  vector.  Separating  variables  (see  e.g.,  Habennan  [1987]), 
the  time  dependence  in  the  curl  equation  in  (57)  is  isolated  and  it  is  seen  that  H,  must  also 
depend  on  time  through  the  e~'cot  factor.  The  generalized  field  equation  in  (57)  becomes 

V  x  (V  x  //.)  =  k2H t .  59 

Since  the  gradient  in  (57)  vanishes,  the  field  can  be  derived  from  a  vector,  Hj  =  V  x  A . 
Symmetry  arguments  allow  A  to  be  written  in  tenns  of  a  scalar,  A  =  /3V  x  (  JB) ,  with / the 
spherically  symmetric  solution  to  V2/  +  k2f  =  0  (finite  at  the  origin)  and  f3  an 
integration  constant.  This  leads  to 

f  f  x  f  T  /■' 

Ht=j3  —  +  k2f  B-/3  -d—  +  k2 
\  r  J  V  r 

L&L  claim  the  magnetic  moment  of  the  sphere  is 

M  =  VaB  .  61 

and  so  a  is  the  complex  coefficient  of  magnetization.  Applying  the  continuity  conditions 

to  (56)  and  (60)  leads  to  a  solution  for  a.  Isolating  the  real  and  imaginary  parts,  the 

coefficients  of  magnetization  of  the  sphere  are 

3  j  3t7  sinh(2a/<7) -sin(2n/J)  ^2 

8^- _  2a  cosh(2a/<7)  -cos(2a/<7) 

9 S2  a  sinh(2a/c7)  +  sin(2a/<7)  ^ 

16m2  8  cosh(2a/<7)-cos(2a/c7) 

where  a  is  the  radius  of  the  sphere.  In  the  low  frequency  limit,  2 a! 8  is  small  and  the 
magnetization  coefficients  can  be  replaced  by  approximations 
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.  An  aA<j2a>2  ,  „  a2 cjcq 

a  = - 1 —  and  a  = 


105 


10c 


64 


For  double  precision  floating  point  accuracy,  the  low  frequency  limits  can  be  employed 
when  laid  <  -0.04.  However,  as  we  noted  earlier,  Bertotti  &  less  suggest  (64)  can  be 
employed  from  the  beginning  of  the  Lageos  mission. 


Corollary  Result:  Implication  for  Effective  Conductivity 


One  interesting  implication  of  (64)  is  that  materials  with  high  effective  conductivities 
play  a  larger  relative  role  in  the  low  frequency  regime.  This  runs  counter  to  some  of  the 
assumptions  made  in  previous  efforts  that  the  high  effective  conductivity  of  the 
aluminum  shell  make  it  a  non-player  in  the  magnetic  field  induced  dynamics.  Yet,  we 
can  verify  empirically  that  the  modeled  spin  dynamics  are  more  sensitive  for  higher 
values  of  cr. 

To  understand  why,  first  observe  a"  »  a' for  lower  frequencies.  It  is  therefore 
convenient  to  bypass  a 'in  the  following  discussion.  Define  the  parameter 

y  =  la  /  o  =la -  65 

c 


which  is  proportional  to  V  cr .  The  expression  for  a"  is  now 


a  =  — 


4;ry~ 


1- 


y  sinh(y)  +  sin(y) 
2  cosh(y)  -  cos(y) 


66 
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Coefficient  of  Magnetization  a  " 


Figure  3.8  Global  behavior  of  a"  as  composite  function  of  model  parameters 

The  parameter  y  is  proportional  to  both  fco  and  fa  .  In  the  low  frequency  regime  (to  the  left  of  the  peak), 
an  increase  in  a  results  in  a  larger  coefficient  of  magnetization. 

Figure  3.8  shows  the  behavior  of  (66)  as  a  function  of  /.  For  convenience,  we  define  the 
region  of  the  domain  to  the  left  of  the  peak  as  the  low  frequency  regime.  It  can  easily  be 
verified  that  the  historical  spin  frequencies  of  Lageos  keep  the  behavior  firmly  rooted  in 
the  low  frequency  regime  except  near  the  beginning  of  the  mission.  It  immediately 
follows  that  for  any  fixed  frequency,  increasing  cr  results  in  larger  values  of  a"  and  a 
greater  impact  on  the  behavior  of  the  satellite.  We  conclude,  therefore,  that  while  there 
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are  other  reasons  to  potentially  discount  the  shell’s  contribution  to  the  magnetic  torques, 
the  material  composition  cannot  be  one  of  them. 

Implementation 

The  preceding  L&L  result  gives  us  a  reasonable  approach  to  the  magnetic  torque 
problem;  it  remains  to  specify  the  properties — effective  conductivity  and  radius — of  the 
reference  sphere.  To  do  so,  we  recall  the  empirically  measured  decay  in  the  spin  rate  of 
Lageos  (Figure  3.5)  and  note  that  the  magnetic  torques  are  the  only  mechanism  for 
dissipating  that  energy.  Thus,  at  the  very  least,  the  reference  sphere  properties  must  be 
specified  so  that  observed  decay  is  matched  by  the  model  output. 

Our  approach  is  to  choose  a  value  for  effective  conductivity  appropriate  for  the 
material  composition  of  the  core,  cr=  l.OxlO17  s'1  for  example,  and  a-posteriori  detennine 
the  radius  to  match  model  output  to  the  spin  rate  data;  a  =  26.52  cm.  Note  the  value  is 
significantly  larger  than  the  dimensions  of  the  cylindrical  core.  This  confirms  that  the 
reference  sphere  should  not  be  taken  too  literally  as  a  satellite  structure  and  hints  at  the 
limitation  of  the  approximation.  Nevertheless,  the  approach  yields  qualitatively  accurate 
results  and  is  a  good  foundation  on  which  to  base  our  later  modifications. 


We  call  it  a  reference  sphere  to  emphasize  the  point  that  it  is  not  a  satellite  structure  but  an  abstraction 
with  primary  purpose  of  reproducing  the  dynamical  effects  of  the  satellite. 
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The  algorithm  for  the  primary  magnetic  torque  model  proceeds  as  follows 

1.  Given  r;  Constants  and  Parameters:  cr,  a,  c 

2.  Obtain  B  (at  r)  from  field  model  and  transform  to  the  body  frame,  Bb  =  Teb  B 

3 .  Compute  co  from  (4) 

4.  Compute  the  transformation  to  the  LL  frame  using  (49)  and  (50) 

5.  Transform  magnetic  field  vector  to  LL  frame  Bl=TblBb  (recall  y 
component  is  zero  by  construction,  therefore  there  is  no  need  to  explicitly 
compute  it). 

6.  Pre-compute  (one  time  at  beginning  of  program): 


An  a4a' 
105  c4 


7.  Set  /?j  =  kx4co  (note  f3\  =  laid) 

a.  If  /3\<  0.04,  compute  a'  =  ksaf  and  a"  =  Cco 

b.  Otherwise  compute 

/(  =  £2/V<y  ,  5-/?  =  sinh  ,  s  =  sin/?j,  d  =  cosh  (3X  -  cos  (3X 


a'  =  -—  +  fr 
8n  2 


sh  -  s 
d 


and  a"  =  —  +  f3- 
co 


sh  +  s 
d 


8.  Set  ax  =  VBb  and  a2  =  axBB ,  then  compute  NB  =  (a2a",  -  a2a’,  -  alBBa") 


9.  Transform  torque  to  body  frame  A,r H  =  (TBL)  •  A,r  1 ' 
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3.5.4  Analysis  and  Improvements 

In  the  ideal,  we  would  like  an  analytical  solution  for  the  general  magnetic  torque 
problem — multiple  frequencies  and  multiple  conductors  with  differing  geometric  and 
electric  properties.  We  could,  therefore,  return  to  the  statement  of  the  problem  and 
attempt  to  construct  an  entirely  new  approach  from  the  ground  up.  However,  for  reasons 
already  established,  a  strict  analytical  treatment  is  not  only  prohibitive  but  also  perhaps 
impossible.  Indeed,  if  the  lack  of  literature  is  any  indication,  there  does  not  seem  to  be 
much  hope  of  a  practical  generalized  solution  that  accommodates  to  the  goal  of  numerical 
implementation. 

It  is  therefore  reasonable  to  maintain  the  perspective  of  the  previous  section. 
Specifically,  rather  than  attempt  to  recreate  the  physical  system  in  detail,  we  opt  for  a 
simpler  reference  approximation  with  the  goal  of  reproducing  the  dynamical  effects  via 
the  parameters  of  the  model.  Corrections  that  are  rooted  in,  but  not  strictly  based  on  the 
particulars  of  the  physical  system,  can  then  be  introduced.  This  approach  provides  the 
flexibility  to  adopt  enhancements  via  parameterizations  that  are  notionally  valid  in  terms 
of  the  resulting  dynamics  but  perhaps  take  some  physical  or  mathematical  liberties  in  the 
process.9 

To  seek  out  candidate  improvements,  we  revisit  and  analyze  the  ways  in  which  the 
L&L  approach  (single  field  frequency,  single  homogenous  spherical  conductor)  violates 

9  The  paradigm  justifying  this  approach  has  already  been  established  in  the  adoption  of  the  reference  sphere 
to  represent  the  satellite. 
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the  physical  system.  From  there,  we  postulate  possible  corrections  and  investigate  the 
implications.  The  three  main  points  of  interest  are 

•  Core  geometry 

•  Shell  effects 

•  Multiple  field  frequencies 

Magnetic  shielding  was  also  identified  as  a  potential  factor  in  the  magnetic  torque 
problem  but  explicit  inclusion  seems  a  needless  refinement — any  such  effects  are  already 
accounted  for  within  the  other  model  parameters.  Similarly,  we  can  summarily  dismiss 
the  role  of  thermoelastic  deformation  on  the  magnetic  torques.  Even  if  the  effect  plays  a 
role  in  the  true  physical  system,  any  corresponding  impacts  are  overshadowed  by  the 
abstractions  already  in  place — it  need  not  be  considered  separately. 

Core  Geometry 

The  cylindrical  beryllium-copper  core  is  approximated  in  the  L&L  model  by  an  isotropic 
sphere.  We  argued  earlier  that  this  is  a  reasonable  approximation  and  indeed,  it  is  in 
many  respects.  For  one  thing,  the  cylindrical  core  is  dimensionally  similar  to  a  sphere, 
being  only  slightly  ‘flattened’  with  a  31.76  cm  diameter  and  26.70  cm  height.  Also,  the 
core  possesses  a  uniform  (homogeneous)  material  structure.  Finally,  the  cylinder  and 
sphere  share  many  symmetry  characteristics. 

However,  the  two  differ  significantly  in  surface  structure,  a  property  extremely 
important  to  the  magnetic  torque  problem  because  of  the  implications  for  current  flow. 
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The  directionally  independent  geometry  of  the  sphere  implies  certain  continuities  of 
current  flow,  not  only  for  any  given  fixed  direction  but  also  as  a  function  of  changing 
orientation.  The  same  cannot  be  said  for  a  cylinder,  which  has  a  non-smooth  surface  and 
so  leads  to  interesting  (and  very  difficult  to  quantify)  effects  for  different  orientations. 

There  is  an  immediate  implication  for  the  resulting  magnetic  torques.  In  particular, 
the  magnetic  moment  of  the  cylinder  will  be  attitude  dependent,  unlike  the  case  for  the 
sphere.  Also,  because  of  the  complex  boundaries  of  the  cylinder,  one  can  surmise 
additional  resistance  as  compared  to  the  sphere  and  hence  greater  energy  loss  due  to  Joule 
heating. 

At  this  point  we  must  admit  that  an  elegant  implementation  of  these  ideas  has  been  at 
our  disposal  all  along.  As  it  turns  out,  L&L  also  partly  treated  the  case  of  a  cylinder  in 
their  work.  Unfortunately,  the  results  are  only  valid  for  specific  orientations  of  the 
cylinder  relative  to  the  magnetic  field  and  only  the  coefficients  of  magnetization  are 
computed — no  discussion  of  the  torque  problem  is  presented.  It  is  probably  for  these 
reasons  that  previous  modeling  efforts  ignored  L&L’s  cylinder  solutions.10 

To  be  specific,  L&L  provide  the  coefficients  of  magnetization  for  a  conducting 
cylinder  in  a  uniform  periodic  field  in  two  specific  cases:  1)  magnetic  field  parallel  to  the 
cylinder  axis  ( longitudinal  field)  and  2)  magnetic  field  perpendicular  to  the  cylinder  axis 
(; transverse  field).  One  problem  with  the  results  is  that  the  complex  coefficient  of 


10  Not  only  is  this  true  of  the  H&W  model,  Bertotti  &  less  chose  the  spherical  solution  from  L&L  over  the 
cylindrical  version  as  well. 
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magnetization  does  not  separate  nicely  into  real  and  imaginary  parts  as  in  (62)  and  (63) 
and  so  the  solution  is  not  particularly  adaptable  to  numerical  implementation.  Moreover, 
no  mention  of  the  situation  in  between  the  two  cases  is  given.  And  for  good  reason — it  is 
not  a  tractable  problem. 

So,  while  the  treatment  of  the  cylinder  by  L&L  is  insufficient  as  a  general  solution  in 
itself,  some  useful  infonnation  can  be  gleaned.  Two  observations  in  particular  guide  the 
remedy  we  have  implemented.  First,  the  complex  magnetization  coefficient  for  the 
transverse  field  is  exactly  twice  that  of  the  longitudinal  field.  Second,  in  the  low 
frequency  limit,  where  separation  of  the  complex  coefficient  is  possible,  the  imaginary 
part  of  the  transverse  coefficient  for  the  cylinder,  a",  scales  to  2  Vi  times  that  of  its 
spherical  counterpart.11  This  seems  a  strong  verification  of  the  earlier  deductions — 
attitude  dependence  and  a  magnification  of  the  effects. 

Extrapolating  these  ideas  to  the  W02  model,  two  modifications  are  introduced.  The 
first  is  a  straight  scaling  parameter,  k,  for  the  computation  of  the  coefficients  of 
magnetization  and  the  second  is  the  introduction  of  attitude  dependence  as  a  linear 
function  of  the  direction  cosine  between  B  and  ef  (the  body  z  axis  is  coincident  with  the 
longitudinal  axis  of  the  cylinder).  The  combined  result  is  expressed  as 

k'  =  K(\-\\B-e*  |).  67 


11  The  real  part  a!  scales  to  better  than  4  times  its  spherical  analog  but  remains  small  relative  to  the 
imaginary  part. 
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Certainly,  the  true  transitional  behavior  as  a  function  of  the  field  orientation  from 
transverse  to  longitudinal  is  far  more  complex  than  the  simple  cosine  dependence  above. 
But  this  approach  satisfies  the  goals  of  the  approximation  and  closes  the  gap  between  the 
L&L  sphere  and  the  physical  system. 

Shell  Effects 

Heretofore  it  has  been  assumed  that  the  shell  makes  little  contribution  to  the  magnetic 
torque  on  the  satellite.  Several  reasons  have  been  given — current  inhibiting  reflectors  in 
the  surface,  a  lack  of  electrical  contact  between  the  hemispheres,  and  a  higher  effective 
conductivity.  We  have  already  shown  the  last  of  these  assumptions  to  be  specious  for 
lower  frequencies  and  have  also  argued  for  the  possibility  of  currents  in  a  layer  beneath 
the  reflectors.  The  lack  of  electrical  contact  between  the  hemispheres  is  limiting  to  some 
extent  but  does  not  preclude  currents  altogether.  In  fact,  it  would  seem  to  lead  to  a 
similar  non-smooth  surface  situation  we  just  discussed  with  the  cylinder.  All  this 
suggests  that  the  shell  cannot  be  so  easily  dismissed  in  the  magnetic  torque  problem. 

Nevertheless,  we  now  show  that  any  such  effects  can  largely  be  accounted  for  within 
the  parameterization  for  the  core  geometry  above.  This  is  a  qualitative  argument  so  it 
will  be  convenient  to  treat  the  shell  as  a  single  entity;  the  hemisphere  boundary  effects 
complicate  the  issue  but  don’t  substantially  change  the  conclusion.  For  the  torque  arising 
from  the  shell,  we  use  (47) 
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Nec  =  k(co  x  B)xB  47 

and  calculate  the  result  in  the  LL  frame.  Since  coL  lies  along  the  z-axis  and  Bl  has  no  y 
component,  the  solution  is  readily  obtained 

'  ko)B\B\  ' 

K=  0  .  69 

This  can  be  linearly  superposed  with  the  result  for  the  core  (53)  to  obtain  the  net  torque 
on  the  spacecraft 

'  (Fa"  +  kco)B\  Bl  ' 

AfL  =  AfL  + /VL  =  -VryrBLBL  70 

m  11  core  ^  1 y  shell  y  u  n\  *  7  u 

~(Va"  +  kco)(Blf  ^ 

Now,  since  k  is  a  function  of  the  shell  geometry  and  electric  properties,  then  together, 
kco  oc  Fsa"  (more  on  this  in  a  moment)  where  Vs  is  the  volume  of  the  shell  and  a "  is  the 

imaginary  part  of  the  shell’s  coefficient  of  magnetization.  If  A  is  a  proportionality 
constant,  then 

kco  =  AVa"  =  A—Va"  =  AVa" .  71 

s  s  Fa" 

and  so  (70)  becomes 

'  Fa"(  1  +  A)B\b\  ' 

K=Kore  +  Nlu=  -F a' B\B\  .  72 

-Va"(  1  +  A)(B\‘  )2^ 
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where  A  cc  s  s  .  Thus,  to  a  great  degree,  the  additional  torque  due  to  the  shell  can  be 
V  a" 

regarded  as  a  scaling  of  the  complex  magnetization  coefficient  of  the  core,  namely  a" . 
Note  that  except  perhaps  very  early  in  life,  the  spin  frequency  of  Lageos  is  such  that 
a"  »  a'  so  the  scaling  in  (72)  can  be  reasonably  absorbed  by  the  scaling  factor  k  of  the 
previous  section.  Therefore,  no  additional  parameterization  is  required  to  account  for  the 
shell. 

We  now  return  to  the  assertion  kco  ccV^a" .  This  is  reasonable  at  face  value,  but 

further  justification  is  warranted.  First,  observe  that  the  shell  possesses  the  same 
spherical  symmetries  of  the  core  and  so  the  L&L  development  proceeds  similarly.  The 
difficulty  in  pursuing  the  L&L  approach  for  the  shell  directly,  however,  is  due  to  the 
boundary  condition  on  the  interior  shell  surface.  This  boundary  condition  doesn’t  change 
the  general  nature  of  the  overall  solution,  but  prohibits  a  clean  separation  of  the  complex 
magnetization  coefficient. 

The  system  is  described  by  two  occurrences  of  (55) — one  for  the  field  on  the  outside 
of  the  shell  and  one  for  the  cavity — and  again  by  (59)  for  the  shell  itself.  The  respective 
solutions  follow  in  the  form  of  (56)  and  (60),  specifically, 

Hx  =  *^[3(B-r)r-B\+B  73 

r 

(ft  \  ( 'j  f 

H  =  —  +  k2f  B-  +  k 2 
{r  )  {  r 

H,  =  -yB  .  75 
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We  have  changed  the  notation  slightly — Ht  now  represents  the  field  in  the  cavity  and  Hs 
is  the  field  in  the  shell.  Also  note  the  k  here  is  as  in  (54)  and  not  the  same  as  (69)  -  (72). 
The  integration  constants  are  as  and  y  along  with  two  constants  contained  in  f  the 
spherically  symmetric  solution  to  V2/  +  k2f  =  0  which  differs  from  before  in  that  the 
finite  origin  boundary  condition  is  replaced  by  the  continuity  condition  on  the  interior  of 
the  shell. 

The  remaining  details  are  tedious  and  do  not  further  inform  this  discussion  so  we 
proceed  to  the  result.  Letting  h\  the  outer  radius  and  h2  the  inner  radius,  the  complex 
coefficient  of  magnetization  for  the  shell  can  be  written 


a,  =  — 


2V. 


3 

b;k2 


H - cot  kh  + 

b,k  1 


^ G(kbvkb2 ) 


76 


where  G  is  a  rather  messy  function  of  kb\  and  kb2  but  scales  comparable  to,  if  not  smaller 
than,  the  other  terms.  Compare  this  to  the  complex  coefficient  of  magnetization  for  a 
sphere  of  radius  b\ 


a  —  — 


b[_ 

2V 


3 

b2k 2 


h - cot^h, 

b,k  1 


77 


where  V  is  the  volume  of  the  sphere.  Therefore, 

Vas  =  Va,  [l  +  G(kb]  ,kb2)\  78 

that  is,  Vsas  cc  Va  for  the  shell  in  comparison  to  a  sphere  with  the  same  outer  radius.  It 
also  follows  that  the  torque  due  to  the  shell  will  then  resolve  to  a  fonn  similar  to  that  of  a 


98 


Chapter  3  -  The  Lageos  Spin  Model 


sphere  as  we  claim  above  and  that  the  resulting  scaling  can  be  accounted  for  within  the 
parameter  k  from  the  previous  section. 

Multiple  Frequencies 

The  situation  for  multiple  timescales  in  the  magnetic  torque  problem  is  quite  a  bit  more 
complicated.  A  key  factor  in  the  L&L  development  was  the  simple  time  dependence  of 
Hi  leading  to  a  reduction  to  the  fonn  of  (59).  This  allowed  the  somewhat  straightforward 
procedure  as  presented  by  L&L.  If  multiple  timescales  are  included,  however,  no  such 
simplification  can  be  made. 

In  the  more  general  problem,  not  only  are  there  multiple  frequencies,  but  they  also 
arise  from  different  types  of  behavior.  There  is  the  spin  of  the  body  in  the  field  (the  case 
considered  above)  and  the  translational  motion  of  the  body  through  the  field  due  both  to 
orbital  motion  and  the  Earth’s  rotation.  L&L  argue  that  their  results  are  equally  valid  for 
either  case  individually  because  the  latter  conforms  to  the  former  via  a  change  of 
coordinates.  Unfortunately,  however,  the  combined  effects  force  a  restatement  of  the 
general  problem  so  no  direct  application  of  the  preceding  results  can  be  made,  at  least  not 
from  a  rigorous  standpoint. 

To  illustrate  the  point  in  more  detail,  consider  only  the  two  largest  timescales — that  of 
the  satellite  spin  and  that  due  to  the  orbital  motion.  Recall  for  the  latter,  the  relevant 
frequency  is  twice  the  orbital  frequency  (referenced  in  the  sequel  by  the  prefix  2x  to 
emphasize  the  distinction;  see  Figure  3.9)  and  as  such,  is  larger  by  better  than  an  order  of 
magnitude  than  the  Earth’s  rotation  rate.  It  is  therefore  sufficient  (and  more  convenient) 
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Lageos  Orbit  Position  Geomagnetic  Field  Vector  Components 


Time  (hours) 

Figure  3.9  Sample  geomagnetic  field  vector  components  at  Lageos  orbit  positions 

A  representative  sample  of  the  geomagnetic  field  components  experienced  by  Lageos  throughout  its  orbit. 
The  components  are  in  phase  with  each  other  with  a  beat-frequency  twice  that  of  the  orbital  frequency.  The 
data  shown  spans  just  over  three  orbit  revolutions. 

in  the  following  discussion  to  ignore  the  effects  of  the  Earth’s  rotation.  If  desired,  the 
effect  can  be  incorporated  after  the  fact  via  the  solution  we  propose. 

For  a  conductor  moving  with  velocity  v  through  a  time-dependent  field,  the 
generalization  of  the  field  equations  (57)  is 

V  Ht=  0 

i  79 

-/-Vx(vxffj)  =  --(Vx(VxFi)) 
ot  k~a> 
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where  k  is  given  by  (54).  L&L  argue  these  reduce  to  the  form  of  (57)  when  expressed  in 
tenns  of  coordinates  in  which  the  conductor  is  fixed.  Unfortunately,  however,  the  time- 
dependence  of  the  external  field  is  no  longer  a  simple  function  of  a  single  frequency  nor 
can  the  variance  of  the  field  be  considered  constrained  to  two  dimensions  (the  assertion 
leading  to  (52)).  Therefore,  the  specific  L&L  results  we  reported  previously  no  longer 
apply. 

A  rigorous  treatment  of  this  more  general  case  does  not  lead  to  promising  results, 
particularly  in  tenns  of  numerical  implementation.  The  system  of  equations  for  the 
multi-frequency  case  would  themselves  have  to  be  treated  numerically  at  a  cost  and 
complexity  exceeding  that  of  the  larger  model  in  which  they  reside.  Therefore,  we  have 
chosen  not  to  pursue  this  course  for  the  current  work. 

Instead,  we  seek  a  compromise  to  bridge  the  gap  between  the  existing  solution  and 
the  true  dynamics  that  are  taking  place.  To  proceed  within  the  framework  of  the  L&L 
solution,  we  explore  two  possibilities.  The  first  treats  the  problem  as  if  completely 
separable,  computing  independent  solutions  for  the  spin  and  the  2x  orbital  frequencies. 
The  results  are  then  linearly  superposed  to  obtain  the  net  magnetic  torque  on  the  satellite. 

The  second  derives  from  the  fact  that  the  time  dependence  of  (57)  still  can  be 
resolved  to  a  solution  of  the  form  e~,<ot  for  a  possibly  complex  constant  cd  via  the 
method  of  separation  of  variables.  To  obtain  cd  and  the  corresponding  vector  cd ,  the 
independent  angular  velocity  vectors  are  summed 

cd  =  co  +  2coa  80 
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where  co0  is  the  orbital  angular  velocity.  Then  co  is  simply  the  magnitude  of  co  and  the 
L&L  solution  can  proceed  as  before. 

Both  of  these  possible  solutions  take  liberties  with  the  nature  of  the  physical  system 
but  we  believe  them  to  be  reasonable  in  light  of  the  abstractions  already  in  place.  For 
one,  when  the  spin  rate  is  much  larger  than  the  2x  orbit  frequency,  the  latter  contributes 
negligibly  to  the  net  torque  under  either  approach.  This  preserves  the  desired  behavior  in 
the  dominant  frequency  case.  Also,  for  complimentary  orientations  of  the  spin  and  orbit 
angular  velocities,  both  approaches  provide  conceptually  accurate  behavior.  It  therefore 
seems  a  logical  extrapolation  to  expect  reasonable  results  from  these  ideas.  This  is 
particularly  true  in  comparison  to  the  baseline  approach,  which  completely  ignores  any 
effects  of  additional  frequency  components. 

While  either  approach  appears  suitable  to  our  needs,  we  have  opted  for  the  linear 
superposition  solution  to  the  multi-frequency  problem  as  a  selectable  option  in  the  W02 
model.  The  implementation  is  identical  to  the  case  for  the  spin  angular  velocity 
substituting  instead  the  2x  orbital  angular  velocity 

r  sin  i  sin  Q  x 

2(o0=2co0  -sinz'cosQ  .  81 

cos  i  y 

The  value  for  co0  is  that  of  the  net  angular  motion,  //v  (see  Table  3.2).  The  resulting 
torque  expression  is  added  to  that  for  the  spin  frequency  to  generate  a  net  magnetic 
torque  for  the  model. 
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Summary 


To  address  the  deficiencies  of  the  H&W  model  magnetic  torque  implementation,  we 
evaluated  the  three  primary  ways  the  L&L  reference  sphere  approach  violates  the 
physical  system.  To  compensate  for  the  geometric  difference  between  the  cylindrical 
core  and  its  spherical  approximation,  a  directional  scaling  of  the  coefficients  of 
magnetization  was  introduced.  The  scaling  magnitude  is  controlled  by  the  parameter  k, 
and  the  directional  scaling  given  as  follows 

C  =K(l-±\B-ef  |).  67 


The  specific  contribution  to  the  net  magnetic  torque  due  to  currents  in  the  shell  remains  a 
mystery.  However,  we  were  able  to  show  that  for  the  most  part,  the  effects  of  the  shell 
can  be  accounted  for  in  the  parameterization  above.  Finally,  to  address  the  multiple 
frequency  issue,  the  general  problem  is  treated  as  separable.  The  torque  contributions  of 
the  different  frequencies  are  computed  independently  and  linearly  superposed  to  generate 
a  net  magnetic  torque.  Our  implementation  includes  only  the  satellite  spin  and  2x  orbit 
frequencies;  the  Earth’s  rotation  could  also  be  taken  into  account  but  it  seems 
unnecessary  to  do  so  at  this  time. 
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3.6  Numerical  Integration 

With  the  physical  model  defined,  we  now  address  numerical  implementation.  This  issue 
has  already  been  a  persistent  consideration  throughout  the  preceding  discussion.  For 
example,  part  of  the  criteria  for  pursuing  particular  solutions  in  the  physical  modeling 
effort  has  been  the  numerical  feasibility  of  such  approaches.  Likewise,  we  have 
attempted  to  demonstrate  efficient  ways  to  construct  algorithms  based  on  the  discoveries 
of  the  previous  sections.  Finally,  the  general  issues  of  numerical  application  were 
highlighted  in  the  discussion  on  artificial  effects  at  the  beginning  of  this  chapter. 

Now  that  the  pieces  have  been  assembled,  however,  it  remains  to  “solve”  the 
problem.  That  is,  we  must  propagate  by  numerical  integration  the  system  described  by 
(13)— (15)  together  with  the  torque  expression  we  derived  in  the  previous  sections. 

3.6.1  Requirements  of  the  Numerical  Problem 

From  a  modeling  standpoint,  we  are  confronted  with  integrating  an  inhomogeneous 
nonlinear  system  of  second  order  differential  equations  over  an  extended  interval.  While 
numerical  methods  exist  for  the  direct  integration  of  second  order  systems,  these 
approaches  have  their  greatest  advantage  when  the  first  derivatives  of  the  variables  do  not 
appear  explicitly  in  the  equations  [Gill  &  Montenbruck,  2000].  The  advantages  of  such 
approaches  for  the  current  situation  where  the  equations  of  motion  are  populated  with 
first  derivatives  is  less  certain.  Accordingly,  we  follow  the  legacy  of  the  H&W  model 
and  pursue  a  first  order  numerical  integration  solution. 
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Numerical  solution  methods  for  first  order  ordinary  differential  equations  (ODEs) 
abound;  the  field  is  rich  in  history  and  well  developed.  The  different  families  of  ODE 
methods  and  different  implementations  within  each  family  present  distinct  characteristics 
that  may  be  more  or  less  suitable  for  a  given  problem.  Indeed,  different  solutions  may  be 
preferred  for  the  same  underlying  system  of  equations  depending  on  the  goal  of  the 
particular  task. 

There  are  a  number  of  concerns  for  the  present  problem  but  let  us  first  recall  the 
reduction  of  (13) — (15)  to  a  first  order  system  exhibited  in  Section  2.2.4.  Namely, 

Y  =  {0  (j)  y  0  (j)  y') .  16 

and 

rYx  W  T4 

T2  Ys 

Y-  Ys  _  Y6 

t4  Ofi  +  0F 

Y5  (Pfr  +  (f>F 

JJ  [v'fr  +  WF 

where  the  free  and  forced  motion  equations  are  given  respectively  by 

[(A  - 1, ) rs  cos  Y,  +  i,y6  ] 

9,=  t^-tTA-ZWcos  Yt+I,Yt\  18 

/,  sin  Yx 

¥„  =  -W  cosj;  +  I,Y6) cos Y,  - I,YS] 

I \  sin  Yx 

and 
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0F=  —  [w,  cos  Y3  -  N2  sin  /] 

A 

<pF  =  — - — [iVj  sin  73  +  N2  cos  F,  ]  .  19 

/,  sin  Y] 

cosF  r..  .  -I  N, 

Wf  =  -  ,  ■  '  lA,  sin  Y3  +  N2  cos  Y3  \  + 

For  convenience,  (17)  is  often  written  as  Y  =  /(F)  . 

There  are  a  number  of  general  requirements  for  the  numerical  integration  process  that 
derive  from  the  goals  of  the  overall  effort.  There  are  also  some  issues  and  constraints 
imposed  by  the  system  of  equations  themselves.  All  of  these  ideas  are  reviewed  in  the 
sequel,  beginning  with  the  latter. 

Direct  Observations 

First,  while  the  previous  sections  make  clear  that  the  problem  of  resolving  the  torques  is 
no  simple  issue,  it  can  nevertheless  be  regarded  as  an  external  input  to  the  numerical 
integration  process.  That  is,  N\,  N2,  and  A3  are  seen  by  the  integrator  as  numerical  values 
rather  than  implicit  expressions  of  the  variables  of  integration.  Thus,  the  preceding 
equations  are  a  complete  explicit  statement  of  the  problem  in  terms  of  the  state  variables. 

On  the  other  hand,  the  point  should  not  be  taken  too  far.  For  implicit  integration 
methods,  the  torques  must  be  accounted  for  in  the  computation  of  the  Jacobian  of  the 
system.  Because  of  the  complexity  of  the  torque  equations,  the  Jacobian  in  this  problem 
cannot  be  detennined  analytically  so  a  numerical  evaluation  is  required.  The 
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corresponding  additional  computational  burden  makes  implicit  methods  far  less 
appealing. 

The  baggage  associated  with  the  Euler  Angle  approach  should  also  be  reiterated. 
Namely,  the  system  is  locally  ill-conditioned  for  values  of  sin  E  near  the  singularity  at 
sinTi  =  0.  This  starts  to  be  a  concern  for  Lageos  when  the  angular  velocity  vector 
decouples  from  the  body  axis  of  the  satellite  and  so  is  relevant  for  the  not  too  distant 
future. 

Nevertheless,  we  have  not  made  any  attempts  in  the  present  effort  to  explicitly  deal 
with  the  issue.  Instead,  our  focus  has  been  an  improved  performance  of  the  model  versus 
historical  observations  when  the  singularity  is  not  an  issue.  The  concern  can  be 
addressed  after  the  fact  as  a  later  enhancement  once  the  dynamical  issues  are  firmly 
resolved.  This  can  be  accomplished  either  by  using  two  different  inertial  reference 
systems  and  switching  between  the  two  to  avoid  the  singularity  or  by  adopting  a  variable 
convention  for  which  the  singularity  is  not  an  issue  (see  Section  2.2.2).  For  the  present 
discussion,  it  suffices  to  observe  that  individual  numerical  integration  techniques  may  be 
more  or  less  adept  at  handling  singularities  within  the  integration  interval  [Flannery  et  al, 
1992].  This  will  be  a  factor  in  the  evaluation  of  integration  approaches  for  the  problem. 

Another  factor  influencing  the  choice  of  numerical  integration  method  is  the  stiffness 
of  the  system.  The  formal  definition  of  a  stiff  ODE  is  often  of  little  practical  use  so 
informal  characterizations  abound  (see,  e.g.,  Ascher  &  Petzold  [1998]).  The  particular 
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notion  that  is  useful  for  the  present  system  describes  an  ODE  as  stiff  if  there  are  multiple 
disparate  timescales  on  which  the  state  variables  are  changing. 

For  Lageos,  this  can  be  seen  in  tenns  of  the  spin  and  orbital  frequencies.  Early  on, 
the  large  spin  frequency  dominates.  This  forces  an  inappropriate  integrator  to  take 
excessively  small  steps  in  spite  of  the  fact  that  the  system  is  dynamically  stable  (slowly 
evolving  spin  state).  The  problem  is  stiff.  Later,  however,  the  timescales  are  more 
comparable — the  system  becomes  decreasingly  stiff  due  to  the  dissipation  of  energy. 
Since  we  are  more  concerned  in  the  dynamics  that  occur  later,  it  will  be  convenient  to 
pursue  non-stiff  integration  solutions. 

As  a  final  observation  about  the  first  order  system,  note  that  it  makes  essentially  no 
demands  on  data  storage  because  there  are  only  six  state  variables.  This  makes  methods 
for  which  data  storage  otherwise  might  be  an  issue,  namely  multi-step  methods,  feasible 
for  the  present  system. 

General  Integration  Requirements 

Apart  from  the  observations  above  based  directly  on  the  system  of  equations,  it  is  also 
necessary  to  characterize  the  overall  goals  of  the  problem  as  they  relate  to  the  numerical 
integration.  Typical  concerns  include  accuracy,  stability,  efficiency,  and  practicality. 
There  is  also  a  type  of  physical  constraint  placed  on  the  integrator  that  derives  from  the 
nature  of  the  system.  We  take  a  closer  look  at  each  of  these  ideas: 

•  Accuracy.  The  spin  state  of  Lageos  will  often  be  propagated  over  lengthy  time 
periods.  This  puts  a  premium  on  global  accuracy  and  therefore  also  local 
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accuracy.  Thus,  a  method  (or  methods)  flexible  enough  to  handle  tight  error 
tolerance  requirements  is  necessary,  i.e.,  we  require  a  high  order  method. 

•  Stability.  On  the  other  hand,  there  is  also  an  implicit  stability  requirement  when 
extended  integration  intervals  are  used.  Unfortunately,  there  is  often  a  direct 
trade-off  between  the  order  of  the  integration  method  and  its  stability  [Gremaud, 
2000].  By  itself,  the  stability  concern  would  also  tend  to  push  us  toward  implicit 
integration  methods,  but  other  considerations  discourage  their  use.  In  the  end,  we 
favor  accuracy  as  a  higher  criteria  and  so  will  lean  more  toward  an  a-posteriori 
determination  of  “reasonable”  integrator  behavior  as  a  validation  of  stability. 

•  Efficiency.  The  speed  of  the  method  is  always  an  overriding  concern — all  other 
things  being  equal,  the  faster  the  performance  the  better.  Still,  there  are  no  “real¬ 
time”  requirements  placed  on  the  present  model  so  efficiency  enters  the 
consideration  as  an  important  but  not  primary  issue. 

•  Practicality.  It  is  not  the  goal  of  this  effort  to  find  (or  invent)  the  optimal 
integration  technique  for  our  problem.  Rather,  we  seek  an  approach  appropriate 
to  the  task  that  can  also  be  efficiently  implemented  into  the  existing  software 
package.  This  leads  us  to  seek  more  of  a  black  box  solution;  i.e.,  mature  non¬ 
proprietary  integration  package(s)  that  provide  a  simple  interface.  The 
practicality  requirement  tends  to  elevate  explicit  methods  in  general  and  one-step 
approaches  in  particular. 
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•  Energy-Preservation.  Given  the  nature  of  the  system,  it  is  appropriate  to  seek  an 
integration  solution  that  satisfies  the  general  conservation  laws  governing  the 
problem.  In  particular,  in  the  absence  of  torques,  the  integrator  ought  to 
indefinitely  preserve  the  total  angular  momentum  of  the  system.  This  criterion 
provides  a  kind  of  litmus  test  for  candidate  integration  techniques  [Campbell, 
private  communication]. 

With  these  requirements  in  mind,  we  now  proceed  to  explore  the  types  of  solution 
methods  available  to  find  an  appropriate  match  for  our  problem. 

3.6.2  Survey  of  Integration  Methods 

In  light  of  the  preceding  discussion,  it  should  be  clear  that  it  is  insufficient  (and 
potentially  dangerous)  to  simply  employ  the  nearest  available  integration  package 
without  further  consideration.  Yet,  to  some  extent,  the  H&W  model  took  this  route.  “To 
be  a  little  more  deliberate  about  the  process  this  time  around,  we  first  embark  on  a 
generalized  overview  of  numerical  integration  methods. 

Definitions 

Already  we  have  employed  some  tenninology  that  suggests  a  categorization  of 
approaches.  Multi-step  methods  that  compute  the  new  solution  based  on  a  number  of 
previous  data  points  vs.  one-step  methods  that  use  only  the  current  system  state.  Explicit 

12  Other  modeling  efforts  we  have  discussed  are  altogether  silent  on  the  issue  so  we  are  unable  to  ascertain 
the  suitability  of  the  method  used. 
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methods  where  the  new  solution  is  an  explicit  function  of  the  previous  data  vs.  implicit 
methods  that  require  a  non-linear  algebraic  solve  to  isolate  the  new  state.  There  is  the 
order  of  the  method  that  specifies  the  theoretical  order  of  magnitude  of  the  local  error 
tenn  (i.e.  one  step),  and  the  stability  of  the  method  that,  loosely  speaking,  is  an  evaluation 
of  the  complex  domain  over  which  a  simplified  test  problem,  y  =  Ay ,  leads  to 
convergent  behavior  within  the  method. 

Other  factors  important  to  the  general  discussion  of  numerical  integration  methods 
include  the  stiffness  of  the  problem  (discussed  above),  the  use  and  methodology  of 
adaptive  step  size  control,  and  the  manner  in  which  error  and  error  tolerance  is  computed. 
Adaptive  stepsize  control  is  an  efficiency  feature — an  optimization  of  a  given  approach. 
The  goal  is  to  modify  the  integration  step  size  so  that  the  integrator  works  just  hard 
enough,  but  not  too  hard,  to  achieve  the  specified  accuracy  tolerances.  In  particular,  it 
controls  the  current  step  size  so  that  the  internal  estimation  of  error  for  each  state  variable 
is  smaller  than  a  computed  error  tolerance  (below).  And,  it  sets  the  next  step  size  based 
on  the  relative  difference  between  the  estimated  error  and  the  corresponding  error 
tolerance. 

The  internal  estimation  of  error  for  a  given  integration  step  is  specific  to  the 
integration  method  and  is,  in  fact,  another  basis  on  which  methods  are  sometimes 
categorized.  On  the  other  hand,  the  local  error  tolerance  (ETOL)  is  derived  from  user 
specified  absolute  (ATOL)  and  relative  (RTOL)  error  tolerances  together  with  the  current 
state  and  perhaps  the  current  derivative  estimate  as  well.  The  tolerances  may  be  specified 
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per  state  variable  or  as  global  values.  A  generic  form  for  the y'th  state  variable  is  given  by 
Booth  et  al  [2001] 

ETOLj  =  t[aTOLj  +  RTOL.(ay  \  YJ  \  +adydxh  |  /.(F)  |)]  .  82 

where  r  <  1  is  a  scaling  “fudge  factor”,  h  is  the  integration  step  size,  and  ay  and  aciydx  are 
weight  factors.  All  the  parameters  are  considered  non-negative.  Though  it  represents  a 
specific  customization  of  (82)  (roughly,  z  =  ay  =  a^dx  =  1,  ATOLy  =  0),  the  form 
suggested  by  Bulirsch  &  Stoer  [1993]  is  perhaps  more  intuitive 

ETOLj  =  RTOLj  •  max{|  Y.(t)  |:  x  e  [t0,t0  +h]}.  83 

This  is  a  relative  scaling  of  the  largest  possible  value  of  the  derivative  function  within  the 
integration  step  interval. 

The  full  form  of  (82)  is  rarely  employed.  Usually  (depending  on  the  integration 
package),  some  of  the  parameters  are  hard-wired  and  some  are  available  as  integrator 
“control  knobs.”  A  common  choice,  and  the  one  that  shows  up  most  frequently  in  the 
packages  we  considered,  is  the  form 

ETOL j  =  A  TOLj  +  RTOLj  |  /  | .  84 

We  have  further  simplified  the  implementation  by  specifying  only  one  independent 
absolute  and  relative  tolerance.  That  is,  ATOLy  =  ATOL  and  RTOLy  =  RTOL  for  all  j. 

Following  the  fonn  of  Gill  &  Montenbruck  [2000],  we  outline  three  basic  families  of 
methods:  i)  Runge-Kutta  methods,  ii)  Extrapolation  methods,  and  iii)  Multi-step  methods. 
Based  on  the  earlier  discussion,  we  restrict  ourselves  only  to  the  explicit  fonns  of  these 
methods. 
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Runge-Kutta  Methods 


Runge-Kutta  or  RK  methods  might  be  described  as  the  workhorses  of  numerical 
integration.  They  are  generally  efficient,  but  are  not  the  fastest.  They  may  be  broadly 
applied  with  considerable  confidence.  RK  methods  are  more  tolerant  of  difficult 
phenomenon  such  as  singularities  or  discontinuities  in  the  derivative  equation  /.  And, 
they  are  fairly  easy  to  implement.  As  a  result,  RK  methods  are  often  the  first  to  be 
applied  to  a  given  ODE.. 

The  general  approach  is  simple  enough;  the  inspiration  derives  from  the  first  order 
Taylor  expansion  of  f[Y) 

Y(t0+h)  =  Y0  +  hf(t0,Y0)  +  ...  85 

leading  to  Euler ’s  Method 

Yn+l  =Yn  +  h  f(tn,Yn)  =  Yn  +hfn  +  0(/r )  86 


which  is  a  first  order  method  (error  tenn  one  order  higher  than  the  correction  term).  The 
idea  extends  by  considering  Euler  type  steps  not  across  the  entire  interval  h  as  in  (86),  but 
rather  as  sub  steps  within  the  interval.  For  example,  the  explicit  midpoint  method  is 
obtained  by  using  an  Euler  step  (86)  to  estimate  the  state  at  the  midpoint  of  the  interval, 
then  using  the  derivative  at  the  point  to  take  a  step  across  the  entire  interval 

K=Yn+\hfn 

ki  =Y„  +\hf(tn  +\h,kx).  87 

Yn+i  =Y„+k2  +0(A3) 
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Note  that  the  result  is  a  second  order  method.  This  generalizes  further  (see  e.g.,  Ascher 
&  Petzold  [1998])  so  that  Yn+]  is  expressed  as  a  linear  combination  of  any  number  (but 
fixed  for  a  given  approach)  of  intermediate  evaluations.  The  method  is  called  an  5-stage 
Runge-Kutta  method  if  s  such  intennediate  evaluations  are  used  and  it  turns  out  that  the 
order  of  the  method,  p,  cannot  be  greater  than  s. 

Adaptive  step  size  control  is  added  by  combining  two  RK  methods  of  subsequent 
order,  p  and  p+ 1,  and  using  the  difference  of  the  computed  solutions  as  an  estimate  of 
local  error.  In  special  (ideal)  circumstances,  the  two  methods  share  the  same 
intennediate  computations,  and  so  save  costly  evaluations  of  the  derivative  function  /. 
Such  approaches  are  called  embedded  methods  and  are  the  basis  for  most  practical 
implementations  of  explicit  RK  approaches. 

Once  a  particular  RK  method  is  employed,  the  order  is  fixed  throughout  the 
application.  This  locks  in  a  range  of  suitable  relative  accuracies  (i.e.,  tolerances  for 
which  the  method  is  relatively  efficient).  Gill  &  Montenbruck  [2000]  assert  that  for  high 
accuracy  work  (>  ~8  digits)  an  RK  method  of  order  8  or  higher  is  generally  necessary. 
This  conclusion  is  specific  to  the  types  of  problems  they  investigate  but  the  analysis  used 
satellite  orbit  equations  and  so  has  a  strong  correlation  to  our  own  system. 

Extrapolation  Methods 

Extrapolation  methods,  also  called  “Bulirsch-Stoer  methods”  due  to  the  pioneering  work 
of  Bulirsch  &  Stoer  [1966],  are  based  on  the  notion  of  Richardson  extrapolation.  The 
idea  is  to  traverse  the  interval  h  with  a  suitable  low-order  method  using  increasingly  fine 
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substeps,  hi  =  him.  The  resulting  estimates  at  t+h  are  treated  as  a  function  of  the  substep 
size  and  an  extrapolation  is  performed  to  predict  the  limiting  result  for  zero  step  size. 

The  appeal  of  the  approach  can  only  truly  be  seen  in  the  details  for  which  we  refer  to 
Gill  &  Montenbruck  [2000]  or  Flannery  et  al  [1992].  We  summarize  some  of  the  more 
informative  results.  Starting  from  (tn,  Y„),  the  system  state  is  advanced  to  t+h.  The 
interval  [ t ,  t+h]  is  divided  into  an  increasing  number  of  substeps  of  size  ht  =  h/nij  defined 
by  the  Bulirsch  sequence 

m  =  mvm2,m3, _  88 


The  interval  is  traversed  using  a  modified  midpoint  rule  consisting  of  an  Euler  step  (86) 

followed  by  midpoint  method  steps  (87) 

*i  =Yn+hf(tn,Yn)  ^ 

zj+l  =  +  2hif(tn  +  jh, ,Zj )  0  =  1,..., m,  - 1) 

and  the  approximate  solution  at  t+h  is  given  by 


V1  =—7  +  —  7  -\-—z 

±n+ 1  4  rrii-2  2  m,-l  ~  4  m,-  * 


The  fundamental  discovery  at  the  core  of  the  extrapolation  method  is  that  the  error  in  (90) 
is  an  even  power  series  of  the  substep  size,  hi,  with  coefficients  that  depend  only  on  tn  and 
h  but  not  on  hi.  This  means  that  approximations  of  the  form  (90)  corresponding  to 
subsequent  members  of  the  Bulirsch  sequence  can  be  linearly  combined  to  eliminate  the 
leading  error  tenn  in  the  power  series.  This  results  in  a  refined  solution  estimate  that  is 
better  by  two  orders  of  magnitude.  The  idea  generalizes — any  two  such  subsequent 
refined  approximations  may  themselves  be  linearly  combined  to  eliminate  the  next 
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leading  term,  and  so  on.  The  result  is  a  triangular  sequence  whose  (/,  i)  entry  is  an 
approximate  solution  to  the  ODE  at  t+h  with  error  0(h2'1). 

Just  as  with  the  RK  methods,  local  error  is  estimated  by  differencing  two  subsequent 
solution  approximations.  Likewise,  adaptive  stepsize  techniques  use  this  error 
information  to  monitor  the  performance.  However,  the  stepsize  control  typically  also 
accounts  for  how  ‘deep’  into  the  Bulirsch  sequence  the  process  went  before  reaching  an 
acceptable  value.  The  implementation  of  the  stepsize  control  and  the  specific  values  in 
the  Bulirsch  sequence  (other  than  that  they  must  all  be  even)  are  the  two  primary  factors 
that  distinguish  extrapolation  techniques. 

Extrapolation  methods  are  variable  order  as  can  be  seen  from  the  error  term.  This  is  a 
powerful  advantage  when  accuracy  is  a  premium.  For  arbitrary  precision  arithmetic, 
extrapolation  methods  can  attain  accuracies  well  beyond  any  known  RK  implementation. 
Likewise,  the  variable  order  extrapolation  approaches  may  be  better  suited  for  problems 
in  which  a  wide  range  of  tolerances  are  likely  to  be  specified;  although,  there  is  a 
diminishing  return  to  efficiency  gained  when  relaxing  tolerances  to  the  low  end  of  the 
spectrum.  Moreover,  for  a  given  accuracy  requirement  (or  range  of  requirements)  for 
which  a  suitable  RK  approach  exists,  the  RK  method  will  almost  always  be  more 
efficient  than  any  extrapolation  technique.  Finally,  extrapolation  methods  have  a  much 
more  difficult  time  with  irregularities  in  the  derivatives. 
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Multi-Step  Methods 

In  the  previous  examples,  the  solution  at  each  integration  step  t„+h  used  only  the 
information  from  the  problem  at  time  tn.  There  is  an  implicit  flexibility  to  this  approach 
and  it  has  obvious  advantages  when  data  storage  is  an  issue.  Nevertheless,  significant 
efficiencies  can  be  gained  for  a  given  accuracy  requirement  if  past  values  are  employed 
in  the  computation  of  subsequent  integration  steps.  This  is  the  motivation  behind  multi¬ 
stop  methods  and  it  provides  the  basis  for  a  host  of  possible  implementations.  As  in  the 
previous  sections,  it  is  not  our  goal  to  rigorously  develop  the  theory  of  multi-step 
methods  but  rather  to  simply  highlight  some  of  the  main  points  of  interest. 

A  general  linear  k-slcp  multi-step  method  for  the  numerical  integration  solution  at 
time  tn  can  be  expressed  in  the  form  (see  e.g.,  Ascher  &  Petzold  [1998]) 

91 

j= 0  j= 0 

where  ctj  and  fi  are  coefficients  specified  by  the  particular  method  and  h  is  a  fixed  step 
size.  It  is  customary  to  set  a0  =  1  and  we  note  the  method  is  explicit  i  (' /?„  =  0  and  implicit 
otherwise. 

Particular  groupings  of  coefficient  choices  separate  multi-step  methods  into  families. 
The  most  popular  multi-step  family  (almost  to  exclusion)  for  non-stiff  problems  are 
called  Adams  methods  which  have  the  form 

j ',=n-,+AZ/U-,--  92 

7=0 
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The  explicit  forms  of  (92)  are  called  Adams-Bashforth  (A-B)  methods  while  the  implicit 
versions  go  by  Adams-Moulton  (A-M);  with  k  steps,  these  have  orders  k  and  k+ 1 
respectively.  Unfortunately,  the  stability  properties  of  the  A-B  methods  are  not  very  nice, 
particularly  as  the  order  increases.  The  A-M  methods,  on  the  other  hand,  have  much 
larger  stability  regions  but  suffer  the  aforementioned  disadvantages  of  implicit 
techniques. 

A  well-known  and  widely  applied  compromise  is  a  group  of  methods  identified  as 
predictor-corrector.  The  explicit  A-B  method  is  used  to  provide  a  “low  quality” 
prediction  (“P”)  for  Yn.  The  prediction  is  then  used  to  estimate  (“E”)  f  ,  so  that  the  A-M 
method  can  provide  a  correction  (“C”)  for  Yn.  The  correction  feeds  back  into  a  revised 
estimate  (“E”)  for  fn.  This  so-called  ABM  PECE  method  is  a  k+\  order  method  with 
stability  properties  somewhere  between  A-B  and  A-M  [Gremaud,  2000]. 

In  problems  where  a  fixed  stepsize  is  suitable,  this  approach  is  typically  far  superior 
from  a  computational  standpoint  to  that  of  either  the  RK  methods  or  extrapolation 
techniques.  But  what  of  problems  where  adaptive  step  control  is  an  implicit  requirement 
of  the  underlying  system  (as  is  the  case  for  our  problem)?  Fortunately,  generalizations 
exist  to  the  PECE  method  that  allow  not  only  adaptive  step  control  but  also  employ 
variable  order.  This  is  an  obviously  desirable  combination  that  makes  such  approaches 
appealing  candidates  for  our  present  application. 
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Summary 

Though  this  survey  of  numerical  integration  issues  and  techniques  is  far  from  exhaustive, 
we  have  tried  to  highlight  some  of  the  important  and  useful  features  of  the  topic.  Each  of 
the  general  families  of  methods  reviewed  have  certain  appealing  properties;  enough  so 
that  none  can  be  considered  unilaterally  superior.  To  summarize  (see  Bulirsch  &  Stoer 
[1993]): 

•  RK  methods  are  easy  to  employ  and  widely  adaptable.  They  achieve  modest 
accuracy  but  are  perhaps  best  able  to  handle  discontinuities  and  singularities  in 
the  equations. 

•  Extrapolation  methods  can  provide  extremely  accurate  results  but  also  often 
provide  more  accuracy  than  required  at  the  expense  of  efficiency.  They  are 
particularly  ill-suited  for  singularities. 

•  Multi-step  methods  in  general  and  the  variable-order  variable-step  PECE 
approach  in  particular  are  extremely  efficient.  However,  more  operational 
overhead  per  step  is  required  so  the  advantage  is  lost  when  the  RHS  of  the 
differential  equation  is  inexpensive  to  compute. 

Each  of  these  ideas  has  advantages  and  potential  drawbacks  for  the  present  problem.  We 
therefore  have  implemented  a  solution  from  each  family  into  the  W02  model.  More 
details  are  provided  shortly  but  first  we  examine  the  method  originally  deployed  by  the 
H&W  model. 


119 


Chapter  3  -  The  Lageos  Spin  Model 


3.6.3  H&W  Model  Integration  Method 

The  H&W  model  employs  an  extrapolation  technique  adapted  from  [ii] .  The  source  uses 
an  adaptive  step  technique  attributed  to  Deuflhard  [1983]  with  a  Bulirsch  sequence 

m  =  2, 4, 6, 8, 10, 12, 14,....  93 

The  details  of  the  adaptive  step  control  method  are  rather  involved  and  so  we  refer  to 
Flannery  et  al  [1992]  for  the  details. 

The  modified  version  introduced  in  the  H&W  model  uses  the  original  Bulirsch 
sequence  of  Bulirsch  &  Stoer  [1966] 

m  =  2, 4, 6, 8, 12, 16, 24, 32, 48, ... .  94 

and  a  simplified  adaptive  stepsize  control  based  only  on  the  index  of  the  Bulirsch 
sequence;  it  does  not  directly  use  the  local  error  estimation.  In  particular,  the  method  sets 
a  “goal”  of  achieving  an  acceptable  integration  step  solution  at  the  5  th  or  6th  element  in 
the  Bulirsch  sequence.  If  the  result  instead  occurs  at  the  Ml  element,  the  subsequent  step 
is  adjusted  by  the  factor  mjmk.  The  approach  is  perhaps  more  intuitive  than  the 
Deuflhard  algorithm  in  Flannery  et  al  but  is  also  theoretically  less  efficient. 

3.6.4  W02  Model  Revisions 

The  advantages  of  the  preceding  approach  have  already  been  highlighted — a  high 
accuracy  method  that  is  suitable  for  long  integration  times.  Moreover,  we  can  verify 
based  on  the  correlation  of  the  output  to  empirical  data  that  the  results  are  reasonable. 
Finally,  we  tested  the  energy  preservation  properties  by  integrating  the  free-motion 
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equations  for  ~75  years  and  observed  no  change  in  angular  momentum.  Thus,  the  H&W 
extrapolation  method  is  an  acceptable,  if  not  ideal,  numerical  integration  solution  for  the 
Lageos  equations  of  motion. 

Still,  the  approach  has  some  weaknesses.  Of  particular  concern  is  the  noted  difficulty 
with  singularities — a  more  robust  solution  is  preferred.  In  addition,  because 
extrapolation  methods  tend  to  be  somewhat  inefficient,  it  is  reasonable  to  seek  a  faster 
solution. 

To  address  these  concerns,  we  pursued  a  number  of  ideas.  First,  we  added  the 
Deuflhard  extrapolation  algorithm  to  the  model  to  investigate  whether,  by  comparison, 
the  simplified  adaptation  of  the  H&W  model  was  a  significant  source  of  efficiency  loss. 
Next,  we  initiated  a  search  for  suitable  integration  packages  to  improve  upon  the  H&W 
model’s  limited  extrapolation  implementation.  Motivated  by  the  ideas  presented  above, 
we  opted  to  include  both  a  high  order  RK  method  and  a  variable  order  variable  step  ABM 
PECE  method.  To  reduce  the  field  of  candidates  in  these  families  (see,  e.g.,  [T]),  we 
followed  the  lead  of  Gill  &  Montenbruck  [2000]  who  evaluate  the  perfonnance  of  a  host 
of  integration  techniques  for  applications  in  orbit  mechanics.  Their  results  lead  us  to  an 
appealing  choice  in  each  category  that  also  match  our  practicality  concerns.  In  the  end, 
we  added  three  integration  modules  as  selectable  options  within  the  W02  model: 

•  Deuflhard  extrapolation  method  (BD)  from  [ii]; 

•  8th  order  embedded  Dormand  &  Prince  Runge-Kutta  method  (DOPRI8)  from  [iii]; 

•  Variable-order,  variable-step  Shampine  ABM  PECE  method  (DE)  from  [iv]; 
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We  also  retained  the  existing  method 

•  Bulirsch-Stoer  extrapolation  method  (BS)  adapted  from  [ii]  and  Bulirsch  &  Stoer 
[1966]. 

DOPRI8  is  credited  to  Hairer  (see  Hairer  et  al  [1993])  and  claims  to  be  best  suited  for  7 
to  13  digit  accuracy  requirements.  Our  implementation  uses  a  C  version  of  the  routine 
translated  from  the  original  Fortran.  The  interface  is  straightforward  and  the  package 
easily  integrated  into  the  existing  C  structure  of  the  W02  model.  DE  is  due  to  Shampine 
(see  Gordon  &  Shampine  [1975]).  The  code  is  a  Fortran  subroutine  that  required  some 
additional  work  to  incorporate  into  the  model  (see  Section  3.7)  but  otherwise  provides  a 
clean  calling  structure.  The  infrastructure  for  BD  already  existed  in  the  model  making  its 
implementation  straightforward. 

We  tested  each  of  the  new  methods  using  a  ~75  year  interval  to  ensure  they  met  the 
energy  preservation  litmus  test  (they  did).  We  then  analyzed  and  compared  all  the 
methods’  outputs  over  both  short  and  relatively  long  tenn  data  sets  and  with  multiple 
specified  tolerances  as  a  sanity  check  on  the  quality  of  the  data.  Spin  state  projections 
were  comparable  in  all  cases  so  we  feel  confident  that  each  of  the  approaches  is  suitable 
for  the  present  work. 

We  also  evaluated  the  performance  of  each  method  for  the  system.  The  results  are 
illustrated  in  Figure  3.10  and  summarized  below. 
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Lageos  Spin  Model  Numerical  Integration  Performance 


Figure  3.10  Performance  comparison  of  the  W02  model  numerical  integration  packages 

The  model  run  time  (Log  base  10)  is  plotted  against  relative  accuracy  (RTOL)  for  the  four  numerical 
integration  packages  available  in  the  W02  model.  The  test  case  used  a  50  JD  integration  interval  and 
included  the  IGRF  octupole  magnetic  field,  the  J2  gravity  gradient  correction,  and  the  multi-frequency 
magnetic  torque  correction.  BD  and  BS  failed  to  complete  the  integration  at  12  and  14  digit  accuracies 
respectively  due  to  a  step  size  underflow. 


•  The  BD  method  did  not  show  a  particular  performance  advantage  versus  the  BS 
approach.  In  fact,  the  results  of  several  test  cases  are  mixed  at  best  and  may  even 
favor  the  BS  method  over  all. 

•  The  extrapolation  techniques  did  not  fare  well  for  the  higher  relative  tolerances. 
This  would  seem  to  conflict  with  the  earlier  assertions  about  the  approaches  but  in 
fact,  it  might  have  been  expected.  Because  these  methods  can  provide  arbitrarily 
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precise  results,  they  also  suffer  more  severely  when  the  underlying  system  cannot 
provide  sufficiently  accurate  infonnation.  Indirectly,  then,  the  results  show  the 
precision  limit  of  the  model  itself  is  ~10"  “  and  so  it  is  pointless  to  specify  a 

1 3 

tighter  tolerance. 

•  As  expected,  the  DOPRI8  routine  exhibits  solid  performance  that  betters  the 
extrapolation  methods  for  comparable  tolerances  but  falls  short  of  the  multi-step 
approach. 

•  The  results  suggest  DE  and  DOPRI8  squeeze  out  the  utility  of  the  extrapolation 
approaches.  For  pure  performance,  DE  is  preferred,  as  long  as  the  derivative 
function  is  ‘nice’.  To  handle  the  irregularities  in  the  derivative  function 
(singularities),  DOPRI8  is  the  best  choice.  The  extrapolation  methods  are  left  out 
in  the  middle. 

3.7  General  Software  Enhancements  &  Features 

So  far,  we  have  presented  the  theoretical  foundation  for  the  physical  model  and  even 
outlined  algorithms  for  numerical  implementation.  Likewise,  approaches  to  numerical 
integration  have  been  explored  and  specific  methods  identified  for  the  model.  There 
remain  a  host  of  issues  and  concerns  related  to  the  process  of  taking  these  building  blocks 


13  These  results  suggest  DE  and  DOPRI8  merely  ''pretend”  to  provide  more  precise  results  but  are,  in  fact, 
unaware  they  have  exceeded  the  precision  of  the  system.  In  short,  the  output  accuracy  cannot  be  better 
than  the  input  accuracy. 
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and  producing  a  quality  software  model.  In  the  preceding,  we  have  emphasized  our 
primary  goal  of  providing  a  revamped  model  that  is  demonstrably  improved  in  its 
predictive  accuracy.  A  corresponding  goal,  however,  is  to  generate  a  product  that  is 
usable  for  further  study  and  accessible  for  the  integration  of  future  refinements.  To  this 
end,  a  number  of  topics  related  to  the  development  and  use  of  the  model  itself  are  now 
explored.  Some  of  what  follows  is  low-level  detail  but  it  is  nevertheless  important  to 
document  to  ensure  the  integrity  of  the  model’s  legacy. 

3.7.1  Software  Development  Environment 

The  W02  model  is  written  in  the  C  programming  language.  This  is  largely  due  to 
legacy — the  original  model  of  Habib  et  al  was  written  in  C  and  all  the  subsequent 
revisions  have  followed  suit.  One  of  our  goals,  however,  has  been  to  maximize  the  use  of 
previously  developed  and  publicly  available  software  to  address  the  needs  of  the  model 
rather  than  “reinventing  the  wheel.”  Unfortunately,  many  appealing  tools  are  only 
offered  in  Fortran,  which  is  the  predominate  language  of  numerical  computing.  In 
addition,  some  of  the  tools  available  in  C  are  automated  translations  of  original  Fortran 
source  that  provide  the  functionality  but  not  the  efficiency  of  the  parent 
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implementation.14  This  can  render  as  ineffective  an  otherwise  attractive  numerical 
routine. 

To  combat  this,  we  first  searched  for  numerical  tools  written  in  native  C  (i.e., 
optimized  for  C).  Unfortunately,  this  proved  too  restrictive;  some  appealing  options  were 
not  available  in  C.  We  therefore  took  a  different  approach  to  the  problem  that  has 
broader  implications.  In  particular,  the  W02  Lageos  Spin  model  is  a  multi-language 
implementation,  combining  both  C  and  Fortran  subroutines  as  necessary.  The  following 
packages  are  included  in  this  work: 

•  GNU  Scientific  Library  (GSL)  [v]  for  general  numerical  architecture  and  specific 
packages  (discussed  in  the  sequel);  C  source. 

•  IGRF  Geomagnetic  Field  model  from  the  GEOPACK  library  [i];  Fortran  source. 

•  DE  numerical  integration  package  [iv];  Fortran  source. 

•  DOPRI8  numerical  integration  package  [iii] ;  C  source.15 

•  Numerical  Recipes  in  C  [ii]  for  numerical  integration  (BD  and  BS)  and  numerical 
differentiation  routines;  C  source. 


14  The  underlying  algorithms  for  numerical  routines  are  language  neutral.  However,  optimal 
implementations  will  necessarily  differ  from  one  programming  language  to  another  as  language  specific 
architectural  constructs  are  taken  into  account.  Thus,  an  automated  (dumb)  C  translation  of  a  numerical 
routine  optimized  for  Fortran  will  not  be  an  optimal  C  implementation.  Better  to  translate  the  algorithm 
“by  hand”  to  ensure  an  optimal  language  specific  routine. 

15  It  was  previously  mentioned  that  the  DOPRI8  routine  we  employ  is  a  Fortran  to  C  translation.  In  this 
particular  case,  the  translation  was  done  “by  hand”  and  so  it  claims  to  be  an  efficient  C  implementation. 
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The  main  handicap  of  the  multi-language  approach  is  that  it  makes  the  task  of  writing  a 
fully  portable 16  model  much  more  difficult.  Moreover,  even  some  of  the  C  language 
tools  present  with  platform  dependent  implementations  that  are  much  more  easily  utilized 
than  their  language  independent  versions.  Because  we  are  not  software  engineers,  these 
factors  conspired  to  make  the  pursuit  of  full  portability  time-prohibitive. 

Instead,  we  employ  a  “pseudo”  portability  by  utilizing  a  software  development 
environment  that  is  a)  freely  available,  b)  based  on  a  compiler  package  that  is  widely 
circulated,  and  c)  natively  supports  multi-language  programming.  We  proceed  hoping 
that  the  accessibility  of  these  development  tools  will  allow  future  work  on  the  model  to 
progress  without  difficulty.  However,  we  acknowledge  that  those  committed  to  a  specific 
platform  different  from  ours  may  find  considerable  work  must  be  done  to  adapt  the  W02 
model  to  their  needs. 

Dev-C++  Integrated  Development  Environment 

Our  platform  is  a  PC  compatible  system  running  the  Windows  2000  operating  system. 
We  use  an  open  source  (free)  integrated  programming  development  environment  (IDE) 
titled  Dev-C++  [vi]  from  Bloodshed  Software.17  Dev-C++  is  an  excellent  programming 
tool  for  32  bit  Windows  (Win32)  operating  systems  packed  with  useful  features  to 

16  That  is,  code  that  is  transportable  without  modification  to  any  platform  (computer  hardware,  operating 
system,  and  programming  development  tools  such  as  the  compiler,  linker,  and  etc.)  that  satisfies  only  very 
general  conforming  requirements. 

17  The  French  author  apparently  just  likes  the  phonetic  sound  of  “Bloodshed”  and  appreciates  the 
connotation  of  the  “blood,  sweat,  and  tears”  involved  with  software  development. 
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facilitate  quality  software  development.  Two  things  about  this  package  are  important  for 
the  present  discussion:  i)  Dev-C++  utilizes  a  compiler  suite — the  GNU  Compiler 
Collection  (GCC) — that  is  widely  used  and  natively  supports  multi-language 
programming  [AA],  and  ii)  Dev-C++  includes  excellent  project  management  capabilities 
making  it  particularly  easy  to  integrate  stand-alone  modules  (including  those  in  languages 
other  than  C). 

GCC  -  GNU  Compiler  Collection 

To  be  specific,  Dev-C++  uses  the  MinGW  (Minimalist  GNU  for  Windows)  port  of  GCC 
[Z],  MinGW  is  a  free  (to  use  and  distribute)  collection  of  GNU  programming  tools  [DD] 
adapted  to  the  Win32  environment.  Software  developed  on  Win32  platforms  using  these 
tools  is  fully  portable  within  the  GNU  family.  It  is  therefore  appropriate  to  peel  off  the 
pre-packaging  (Dev-C++  &  MinGW)  and  focus  directly  on  the  features  of  GCC. 

As  the  name  from  which  the  acronym  derives  implies,  GCC  is  actually  a  collection  of 
compilers  integrated  into  a  single  package.  More  precisely,  GCC  is  a  collection  of 
language  specific  front  ends  that  use  the  GCC  compiler.  To  be  sure,  the  front  ends  are 
not  merely  translators  but  invoke  language  appropriate  compilation  from  GCC.  The 
supported  languages  include  C,  C++,  Fortran,  Java,  and  Ada.  Each  can  be  invoked  by 
directly  calling  “gcc”  (this  is  transparent  in  the  Dev-C++  IDE)  but  when  a  particular 
emphasis  is  desired,  the  specific  front  ends  are  accessed  respectively  as  “gcc”  for  C, 
“g++”  for  C++,  “g77”  for  Fortran,  gjc  for  Java,  and  gnat  for  Ada. 


128 


Chapter  3  -  The  Lageos  Spin  Model 


The  support  for  each  included  language  is  full  featured  and  conforming.  That  is, 
GCC  provides  all  of  the  standard  libraries  and  toolsets  and  fully  supports  the  language 
standards.  In  addition,  GCC  provides  a  number  of  practical  language  extensions,  though 
use  of  these  will  of  course  make  code  less  portable.  Further  details  regarding  standards 
and  extensions  are  beyond  the  scope  here  (except  to  note  the  conventions  used)  so  we 
refer  to  the  GCC  Reference  Manual  section  on  Standards  [CC]  (also  see  [EE]). 

C99  Language  Features 

The  W02  model  makes  use  of  the  multiple  language  facilities  (detailed  below)  and  we 
have  adopted  a  number  of  features  in  the  C99  standard  [GG]  that  are  not  part  of  the 
current  ANSI  C  construct.  Specifically  in  tenns  of  the  latter,  we  make  extensive  use  of 
the  following  C99  features: 

•  Variable  length  arrays  (VLAs)  in  lieu  of  the  more  cumbersome  malloc  procedures 
of  ANSI  C; 

•  Inline  capability  for  faster  code; 

•  Mixed  declarations  to  localize  the  scope  of  automatic  variables;  and 

•  The  C++  style  “//”  comment  indicators  for  convenience. 

These  capabilities  are  made  possible  by  invoking  a  specific  compiler  flag.  In  our  version 
(GCC  2.95.3-6),  the  flag  is  “-std=gnu9x.”  There  are  several  more  recent  versions  of 
GCC  that  use  the  flag  “-std=c99.”  It  was  not  until  well  into  our  analysis,  however,  that 
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any  of  these  newer  versions  of  GCC  were  ported  to  Win32  by  MinGW  so  they  were  not 
part  of  the  IDE  we  used. 

Multi-Language  Integration 

A  major  benefit  of  the  GCC  package  is  the  ability  to  mix  raw  source  code  from  different 
languages  in  the  same  project.  It  remains  to  specify  an  interface  that  allows  (in  our  case) 
C  and  Fortran  subroutines  to  communicate  with  each  other  because  Fortran  and  C 
subroutines  use  different  calling  conventions  and  data  structures.  Fortunately,  for  each  of 
the  Fortran  source-code  packages  we  use,  there  is  a  single  point  of  entry  so  the  difficulty 
is  minimized. 

This  issue  of  mixing  Fortran  and  C  in  particular  has  received  quite  a  bit  of  attention 
(see  e.g.,  [HH],  [II],  and  Burley  [2002])  and  the  main  difficulty  when  calling  Fortran 
subroutines  from  C  is  prototyping  the  calling  structure  (subroutine  names  and  data  types). 
The  embedded  interface  between  Fortran  and  C  within  GCC  is  based  on  the  automated 
Fortran  to  C  translator/compiler  “f2c”.  We  have  already  noted  our  bias  against 
automated  translations  of  Fortran  code  to  C,  which  is  why  we  did  not  directly  pursue  f2c 
as  a  solution  to  the  mixed  language  problem.  Here,  however,  the  f2c  constructs  merely 
provide  the  necessary  interfaces  to  allow  the  Fortran  and  C  subroutines  to  “speak”  to  each 
other  (recall  GCC  performs  native  compilation  for  each  language). 

To  construct  the  appropriate  C  prototypes  for  the  Fortran  subroutines  we  followed  the 
idea  suggest  in  the  GCC  Fortran  manual  ([KK],  see  also  [BB]  or  Burley  [2002]).  First,  C 
prototypes  (including  data  declarations)  of  the  Fortran  source  subroutines  can  be 
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generated  by  using  the  command  line  f2c  with  the  -P  switch  (e.g.,  “f2c  source. f  -P").  In 
the  calling  C  routine,  it  is  helpful  to  mimic  the  Fortran  data  types  in  the  variable 
declarations  to  ensure  compatibility.  In  addition,  two  libraries,  libg2h  and  libm, 
containing  the  language  interfaces  must  be  included  via  linker  flags  “-lg2h  -lm”  (must  be 
in  that  order). 

Once  these  steps  are  accomplished,  the  Fortran  and  C  source  code  may  be  included 
together  in  the  same  project.  The  prototypes  for  the  Fortran  subroutines  detennined 
above  are  otherwise  handled  in  the  same  manner  as  prototypes  for  C  subroutines. 

3.7.2  GNU  Scientific  Library 

One  of  the  most  significant  architectural  improvements  of  the  W02  model  has  been  the 
incorporation  of  the  GNU  Scientific  Library  or  GSL  [v].  GSL  is  an  extensive  free 
collection  of  ANSI  C  routines  for  numerical  computing.  In  addition,  GSL  provides  a 
number  of  constructs  that  make  implementation  of  mathematical  procedures  more 
accessible.  Once  again,  we  have  used  a  Win32  port  of  GSL  as  provided  by  the 
GnuWin32  project  [W].  It  just  so  happens  (not  quite  by  accident)  that  the  GnuWin32 
project  performs  all  of  its  developments  using  the  MinGW  port  of  GCC.  This  makes 
GSL  a  particularly  good  fit  for  our  work  and  certainly  assures  that  our  “pseudo 
portability”  goal  is  met. 

The  specific  GSL  related  enhancements  we  made  in  the  W02  model  include 

•  A  complete  scrub  of  data  structures  to  incorporate  the  GSL  Vector  and  Matrix 
constructs. 
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•  Extensive  utilization  of  GSL’s  Basic  Linear  Algebra  Subprograms  (BLAS)  for 
vector  and  matrix  operations  resulting  in  a  cleaner  mathematical  implementation 
compared  to  the  cumbersome  approach  of  the  H&W  model. 

•  A  multi-dimensional  non-linear  minimization  capability  was  added  to  allow 
parameter  optimization  (see  below). 

•  Accompanying  the  optimization  feature  is  a  linear  least  squares  fitting  routine  and 
a  numerical  differentiation  routine. 

•  Incorporation  of  various  efficient  mathematical  operations  including  integer 
power  computations,  number  testing  macros  (maximum,  minimum,  sign), 
Homer’s  stable  polynomial  evaluation  method,  and  a  vector  element  sort  routine. 

As  a  result  of  these  adaptations,  the  W02  code  is  not  only  cleaner  and  easier  to  decipher 
but  also  more  capable  and  efficient. 

The  addition  of  the  GSL  package  to  the  model  is  relatively  straightforward.  The  GSL 
libraries,  libgsl  and  libgslcblas,  are  attached  to  the  model  by  inserting  the  linker 
commands  “-lgsl  -lgslcblas.”  Additional  significant  efficiencies  are  gained  by  instructing 
“inline”  compilation  of  the  GSL  routines.  This  is  accomplished  by  inserting  the  macro 
“-DHAVE_INLINE”  as  a  compiler  flag.  Specific  numerical  routines  are  accessed  by 
attaching  the  appropriate  header  file  as  specified  in  user’s  manual  (Booth  et  al  [2001]). 
For  example,  basic  math  operations  and  constants  are  added  by  including  “gsl  math.h” 
wherever  the  functionality  is  utilized. 
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As  a  final  remark  about  GSL,  we  note  that  it  contains  a  host  of  numerical  routines 
that  may  be  useful  to  future  work  with  the  Lageos  Spin  Model.  Since  the  library  is 
already  built  into  the  W02  model,  it  is  a  trivial  matter  to  access  additional  routines  as  the 
need  arises. 

3.7.3  Parameter  Optimization 

One  of  the  persistent  themes  in  the  preceding  sections  covering  the  dynamical  features  of 
the  model  is  the  idea  that  there  is  an  element  of  tuning  in  selecting  the  values  describing 
physical  characteristics  of  the  satellite.  For  example,  the  effective  conductivity  and 
radius  of  the  reference  sphere  in  the  magnetic  torque  model  were  chosen  so  the  model 
output  would  match  the  observed  exponential  decay  of  the  spin  rate.  However,  in  the 
H&W  model,  these  values  were  obtained  merely  by  trial  and  error.  Moreover,  we  feel 
the  notion  of  tuning  the  parameters  was  not  applied  broadly  enough.  In  response  to  these 
“deficiencies,”  we  have  added  to  the  W02  model  the  option  to  perform  a  non-linear 
optimization  on  the  satellite’s  model  parameters. 

Apart  from  the  dynamical  improvements  summarized  in  earlier  sections,  we  think  this 
addition  represents  the  most  important  advance  of  the  W02  model.  For  one,  it  improves 
the  ability  to  ask  “what  if?”  questions  and  makes  it  possible  to  better  understand  potential 
sources  of  error.  More  importantly,  it  has  the  potential  to  significantly  improve  the 
predictive  performance  of  the  model  by  taking  some  of  the  conjecture  out  of  the  selection 
of  model  parameters. 
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The  parameter  optimization  is  implemented  as  a  selectable  option  in  the  model  using 
GSL’s  Multidimensional  Minimization  subroutines.  Error  is  computed  by  comparing 
model  output  to  the  empirically  determined  Avizonis  data  and  the  procedure  seeks 
parameter  values  that  minimize  this  error.  The  optimization  can  be  run  over  any  duration 
of  time  interval  as  long  as  it  spans  some  portion  of  the  Avizonis  data  set. 

We  programmed  six  model  parameters  into  the  optimization  (though  more  are  easily 

added)  and  the  software  allows  the  choice  of  any  combination  of  these  parameters  for  a 

given  optimization  run.  The  six  parameters  are  the  principal  moments,  I\  and  h,  and  four 

values  from  the  satellite  core  reference  sphere:  i)  radius,  a,  ii)  effective  conductivity,  cr, 

iii)  magnetization  coefficient  scaling  factor,  k,  and  iv)  an  oblate  spheroid  factor  we 

1 8 

experimented  with  early  on  but  now  believe  can  be  deprecated. 

The  Avizonis  data  identifies  spin  axis  right  ascension,  declination,  and  spin  rate  at 
specific  epochs.  We  compute  spatial  error  for  the  optimization  routine  by  differencing 
model  outputs  for  right  ascension  and  declination  from  the  Avizonis  values  and  summing 
their  squares.  The  error  associated  with  the  spin  rate  is  detennined  by  computing  the 
decay  coefficient  for  the  model  output  and  comparing  it  to  the  empirically  detennined 


18  The  oblate  spheroid  parameter  derived  from  the  idea  that  the  cylindrical  core  is  more  similar  to  an  oblate 
spheroid  than  a  pure  sphere.  We  defined  an  oblateness  parameter  as  the  ratio  of  the  equatorial  and  polar 
radii  of  the  spheroid  and  used  this  to  perform  a  simple  transformation  mapping  the  spheroid  to  a  pure 
sphere  (z  scaling).  We  applied  the  transformation  to  the  body  frame  B  and  co  vectors  before  proceeding 
with  the  L&L  computations;  the  inverse  transformation  was  applied  to  the  resulting  torque.  This  produced 
some  nice  results,  but  is  redundant  with  the  directional  scaling  of  the  coefficients  of  magnetization 
presented  earlier.  We  think  the  latter  is  more  elegant  so  the  former  is  deprecated  and  is  not  included  in  any 
results. 
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decay  constant.  In  particular,  we  take  the  log 
of  the  model  output  spin  rates  and  perform  a 
linear  least  squares  fit  to  determine  the  slope 
(which  is  the  decay  coefficient).  This  leads  to 
three  error  factors:  the  sum  of  squares  of  the 
right  ascension  error,  the  sum  of  squares  of  the 
declination  error,  and  the  square  of  the  decay 
rate  error.  The  three  error  terms  are  weighted 
per  user  input  and  summed  to  produce  a  total 


Table  3.5  Satellite  parameters  featured  in 
the  optimization  routine 


h 

Transverse  principal  moment 
of  inertia 

h 

Axial  principal  moment 
of  inertia 

a 

Radius  of  the  core  reference 
sphere 

G 

Effective  conductivity  of  the 
core  reference  sphere 

K 

Magnetization  coefficient 
scaling  factor 

f 

Core  oblateness  factor 
(deprecated) 

error. 

The  GSL  Multidimensional  Minimization  subroutines  feature  three  different 
conjugate  gradient  type  algorithms  and  a  steepest  descent  method  (the  latter  is  not 
efficient  and  only  included  for  demonstration  purposes).  Two  of  the  three  conjugate 
gradient  algorithms  use  a  line-minimization  technique,  while  the  third  is  a  quasi-Newton 
method.  We  did  not  perform  a  comparative  analysis  on  these  methods  so  cannot  say 
which  is  best  for  our  problem,  but  suspect  the  quasi-Newton  method  may  not  be 
appropriate  because  it  puts  too  much  confidence  in  the  quality  of  the  computed  gradient 
(see  below). 

Each  of  the  minimization  routines  require  a  gradient  computation.  Given  the  nature 
of  the  problem,  there  is  no  analytical  solution  so  a  numerical  differentiation  technique  is 
required  instead.  Unfortunately,  GSL  is  somewhat  limited  in  this  area — the  derivative 
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routines  do  not  allow  enough  control  to  make  them  useful  for  our  current  problem.  The 
routine  provided  in  [ii]  has  better  practical  utility  and  that  is  now  the  default  approach  in 
the  optimization  package.  Two  important  observations  are  made  about  the  numerical 
differentiation  in  this  problem: 

•  First,  the  computation  is  extremely  expensive  and,  unfortunately,  the  cost  is 
unavoidable.  Numerical  derivatives  are  computed  with  some  form  of  finite 
differencing.  This  requires  function  evaluations  at  several  points  bracketing  the 
point  of  interest.  For  the  parameter  optimization,  a  single  “function  evaluation” 
consists  of  propagating  the  spin  state  over  a  specified  interval,  then  computing  the 
total  error  of  the  output  as  previously  described.  Depending  on  the  duration  of  the 
interval  and  on  the  modeling  options  selected,  each  of  these  function  evaluations 
can  take  from  tens  of  seconds  to  several  minutes  (or  more).  At  least  six  (usually 
more)  such  evaluations  are  required  for  a  decent  derivative  estimate  for  a  single 
parameter.  Multiply  by  the  number  of  parameters  and  perform  the  operations 
several  times  per  optimization  step  and  the  cost  is  staggering.  We  have  had 
optimization  runs  last  from  several  hours  to  several  days  on  our  system. 

•  Second,  the  computed  derivative  cannot  be  expected  to  have  much  precision.  The 
best-case  theoretical  accuracy  of  numerical  differentiation  is  about  half  to  two- 
thirds  as  many  digits  as  the  relative  accuracy  the  function  can  provide  (see 
Flannery  et  al).  For  our  problem,  the  relative  accuracy  of  a  given  data  point 
output  from  the  model  is  ~n.s7/;-RTOL  where  nstp  is  the  number  of  integration 
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steps.  For  DE,  nstp  scales  to  O(104)  integration  steps  per  Julian  Day  of  simulation 
time.  If  ten  digit  accuracy  (RTOL  =  10'10)  is  specified  and  given  a  typical 
integration  interval  spans  tens  if  not  hundreds  of  Julian  Days,  the  error  function 
will  have  roughly  four  quality  digits  which  means  the  derivative  will  be  accurate 
to  two  or  possibly  three  digits. 

The  implication  of  the  second  point  is  a  weakening  of  the  convergence  properties  of  the 
minimization  methods  because  each  uses  the  magnitude  of  the  gradient  as  an  indicator  of 
progress.  The  situation  is  particularly  troubling  for  the  quasi-Newton  method,  however, 
because  it  uses  second  derivative  information  derived  from  the  gradient  to  attempt 
Newton-like  steps  toward  the  minimum. 

The  parameter  optimization  capability  is  implemented  as  a  stand-alone  feature  of  the 
model  with  its  own  code  and  control  files.  This  is  done  to  keep  a  clean  user  interface  to 
the  core  feature  of  the  model — the  spin  state  propagation.  Results  and  analysis  of  the 
parameter  optimization  efforts  are  discussed  in  Chapter  4. 

3.7.4  Miscellaneous  Features  &  Enhancements 

In  addition  to  the  more  significant  modifications  mentioned  above,  we  also  made  a 
number  of  other  enhancements  that  improve  the  overall  quality  of  the  W02  model.  These 
are  briefly  summarized  for  completeness. 
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Time  Format 

Prior  to  the  W02  model,  integration  was  performed  using  a  “local”  time  format  with  t  =  0 
corresponding  to  the  initial  conditions.  Unfortunately,  in  this  format  there  is  a  unique  set 
of  model  parameters  initial  conditions  corresponding  to  different  epochs.  This  made 
switching  to  different  sets  of  initial  conditions  cumbersome.  This  deficiency  was 
corrected  by  adopting  a  global  time  fonnat  using  the  JD2K  timescale.  Integration  start 
and  stop  times  are  specified  according  to  their  JD2K  value  and  the  initial  spin  state  (Euler 
angles  and  rates)  is  set  accordingly. 

Targeted  Output  Times 

Another  limitation  of  the  H&W  model  was  an  inability  to  specify  times  for  data  output. 
Instead,  data  was  generated  only  at  a  fixed  interval  throughout  the  integration.  Not  only 
did  this  lead  to  copious  unnecessary  output,  but  it  also  made  it  difficult  to  correlate  model 
outputs  with  empirical  observations  in  both  space  and  time.  The  latter  point  is 
particularly  important  because  it  renders  as  useless  the  parameter  optimization  routine.  It 
was  therefore  necessary  to  add  a  targeted  output  time  feature  to  the  W02  spin  model. 
Any  set  of  times  (JD2K)  may  be  specified,  but  the  default  list  in  the  model  corresponds  to 
the  Avizonis  data  set.  The  times  are  automatically  filtered  to  include  only  those  within 
the  integration  interval. 
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Data  Files 

Along  the  same  lines,  the  H&W  model  had  very  limited  data  output  capabilities. 
Moreover,  the  format  of  the  data  files  was  inconvenient  and  required  a  great  deal  of  post¬ 
processing.  We  modified  this  behavior  to  produce  a  much  more  usable  set  of  output  files. 
All  of  the  output  data  is  time  tagged  (JD2K).  A  sample  of  each  output  file  is  included  in 
the  appendix;  the  contents  are  are  follows: 

L_euler.txt:  Euler  angles  (deg)  and  Euler  angle  rates  (deg/s),  (f)  and  t//  are 

modulated  to  a  user  specified  interval  and  the  corresponding 
“revolution”  numbers  are  provided.  Also  reported  is  the  right 
ascension  (deg)  and  declination  (deg)  of  the  body  axis. 

L_angvel.txt:  Magnitude  of  the  angular  velocity  (“spin”)  vector  (deg/s)  along 

with  its  body  frame  axial  and  transverse  components  (deg/s).  Also 
provided  is  the  spin  vector’s  longitudinal  and  latitudinal  angles 
(deg)  in  the  body  frame,  the  ECI  frame  (i.e.,  right  ascension  and 
declination),  and  an  orbital  reference  system  defined  by  the  Euler 
angle  transformation  (f)  =  Q,  0=  i,  and  y/=  0.19 

L_angmom.txt:  Spin  angular  momentum  vector  data  in  precisely  the  same  output 

formats  as  L_angvel.txt. 

19  This  frame  is  nearly  depicted  in  Figure  2.4.  The  x-axis  is  along  the  line  of  nodes  and  the  z-axis  is  the 
direction  of  the  orbit  angular  momentum  vector.  The  orbital  motion  occurs  in  the  x-y  plane  of  this  system. 
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L_orbit.txt:  Instantaneous  orbit  position  data  including  radius  (km),  RAAN 

(deg),  modulated  net  angular  position  (deg)  and  corresponding 
revolution  number,  mean  anomaly  (deg),  eccentric  anomaly  (deg), 
and  argument  of  perigee  (deg). 

L_log.txt:  Log  file  that  includes  a  summary  table  of  model  option  settings  for 

the  run  and  integration  performance  data  such  as  program  runtime, 
number  of  integration  steps,  and  number  of  function  calls.  The 
integration  data  is  reported  on  the  same  interval  as  the  other  output 
files. 

Miscellany 

•  To  facilitate  the  modification  of  individual  pieces  of  the  equations  of  motion 
(gravitational  torque,  magnetic  torque,  orbit  propagation,  free  motion,  etc.),  we 
rewrote  the  equations  of  motion  subroutine  to  separate  each  of  these  parts  into 
distinct  modules.  It  is  now  much  easier  to  isolate  behavior  and  substitute  specific 
components  of  the  physical  model. 

•  We  cleaned  up  the  data  structure  and  expanded  the  use  of  global  variables  to 
allow  for  more  efficient  sharing  of  data  within  the  model. 

•  Regrettably,  time  priorities  kept  us  from  inserting  what  would  be  a  particularly 
useful  feature.  Currently,  all  the  inputs  and  parameters  are  passed  to  the  model 
via  header  files.  This  means  that  any  changes  to  these  values  require  the  entire 
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program  to  be  re-compiled.  This  is  inefficient  and  robs  the  model  of  some  of  its 
potential  utility.  Better  to  dynamically  load  the  input  data  from  a  separate  file  at 
runtime,  making  it  much  easier  to  run  different  scenarios  with  the  same 
underlying  physical  model. 

3.7.5  W02  Lageos  Spin  Model  Software  Package 

Finally,  we  now  briefly  summarize  the  content  of  the  W02  software  package;  the 
complete  source  code  for  the  model  is  provided  in  an  appendix  to  this  document.  The 
source  files  are  organized  a  Dev-C++  Project  in  four  modules:  i)  model  control,  ii) 
physical  model,  iii)  numerical  routines,  and  iv)  optimization  package.  These  are 
described  as  follows. 

Model  Control 

This  is  the  control  center  of  the  model.  It  includes  the  main  “driver”  program  and 
evolution  routines,  input  and  output  functionality,  variable  architecture,  and  project 
management  features.  The  source  files  in  this  module  are 

Lmain.c:  Contains  the  main  program,  the  various  driver  routines,  and  a  global 

dynamic  memory  allocation; 

Lio.c:  Contains  all  of  the  input  (i.e.,  variable  model  parameter  initializations) 

and  output  functionality  of  the  W02  model; 

Lincl.h:  Common  header  file  attached  to  every  source  file  in  the  model;  it 

includes  common  macros,  header  files  (standard,  GSL,  and  custom), 


141 


Chapter  3  -  The  Lageos  Spin  Model 


custom  data  structures,  and  Fortran  subroutine  interface  macros; 
attached  to  every  source  fde  in  the  model; 

Lprot.h:  Header  file  containing  subroutine  prototypes  for  every  function  in  the 

model;  included  in  Lincl.h; 

Lglob.h:  Header  file  containing  all  global  variable  declarations;  attached  to 

Lmain.c; 

Lextern.h:  Header  file  containing  “external”  references  to  all  global  variables; 

attached  to  all  source  files  except  Lmain.c. 

Physical  Model 

This  module  contains  the  actual  dynamical  modeling  features  of  the  W02  software 

package  including  the  equations  of  motion,  torque  components,  and  parameter  values. 

This  is  accomplished  with  the  following  source  files: 

Lderivs.c:  Source  code  for  the  equations  of  motion,  orbit  propagation  and  torque 

computations; 

Ligrf2000.fi  Source  code  (Fortran)  for  the  IGRF  2000  magnetic  field  model 

Ltools.c:  Various  custom  mathematics  and  astrodynamics  utilities 

Lparams.h:  Header  file  contain  all  W02  control  and  physical  parameters;  this  is  the 

primary  user  interface  and  is  well  documented;  included  in  Lincl.h 
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Numerical  Routines 

This  component  contains  the  external  source  numerical  integration  routines: 

Ldop853.c:  Source  code  for  the  DOPRI8  integration  algorithm; 

Ldop853.h:  Header  file  for  the  DOPRI8  integration  algorithm;  attached  to 

Ldop853.c; 

Lnrc.c:  Source  code  for  routines  adapted  from  Numerical  Recipes  in  C  [ii]; 

includes  BD,  BS,  and  the  numerical  differentiation  routine  used  by  the 
parameter  optimization  package; 

Lshode.f:  Source  code  (Fortran)  for  the  DE  integration  package. 

Optimization  Package 

This  package  contains  the  implementation  of  the  parameter  optimization  functionality. 
The  main  driver  program  diverts  control  to  the  optimization  package,  which  then  calls 
back  to  the  central  model  to  generate  the  data  for  the  error  function.  The  package  is  self- 
contained  in  the  sense  that  all  of  the  optimization  specific  subroutines,  control 
parameters,  input/output,  and  data  are  contained  within  this  component.  The  package 
consists  of 

Lopt.c:  Source  code  for  the  optimization  subroutines  including  the 

optimization  driver  routine,  the  error  function,  the  error  gradient 
function,  and  optimization  specific  input/output  functions; 
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Lopt.h:  Header  file  containing  Avizonis  data,  optimization  control  parameters 

and  variables,  and  GSL  header  file  includes  for  GSL  functions 
contained  only  in  the  optimization  package. 

Compiler  and  Linker  Options  Summary 

The  project  compiles  to  a  Win32  console  application  (i.e.,  a  command  line  executable). 
To  obtain  the  most  efficient  code  possible,  the  full  optimizing  capabilities  of  the  GCC 
compiler  are  invoked  using  the  compiler  flags  “-03  -fexpensive-optimizations.” 
Recalling  the  previous  references,  we  summarize  all  the  additional  linker  and  compiler 
flags  used  in  the  construction  of  the  executable: 

•  Compiler:  -DHAVE  INLINE  -std=gnu9x  -03  -fexpensive-optimizations 

•  Linker:  -lgsl  -lgslcblas  -lg2c  -1m 

This  fully  describes  our  implementation  of  the  W02  Lageos  spin  model  from  the  software 
development  perspective. 

3.8  Summary 

The  issues  involved  with  developing  a  comprehensive  model  of  the  Lageos  spin 
dynamics  are  expansive.  Using  the  H&W  model  as  a  baseline,  we  detailed  all  of  the 
pertinent  concerns.  The  physical  model  components  were  revisited  in  a  bottom-up 
approach  to  ensure  the  best  possible  capture  of  dynamical  effects.  The  effort  led  to  a 
revision  of  the  orbit  module,  the  addition  of  the  Ji  zonal  harmonic  tenn  to  the  gravity 
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torque  computation,  and  several  ‘tweaks’  of  the  magnetic  model.  The  analysis  also 
suggested  that  a  parameterized  approach  to  representing  the  satellite  was  warranted. 
Therefore,  an  optimization  capability  was  added  to  facilitate  parameter  tuning  for  optimal 
performance.  Concerning  numerical  implementation,  we  presented  efficient  algorithms 
for  each  dynamical  component  of  the  model.  More  importantly,  the  numerical 
integration  capabilities  of  the  H&W  model  were  improved  upon  by  adding  both  a  more 
efficient  integrator  and  an  integrator  more  suited  to  derivative  function  irregularities  that 
may  soon  be  an  issue  for  Lageos.  Finally,  the  software  development  of  the  model  was 
explored  to  document  the  “behind  the  scenes”  effort  so  that  the  model  is  more  accessible 
for  future  use  and  revision.  With  the  central  thrust  of  the  effort  complete,  we  now  look  at 
some  of  the  results  and  explore  in  more  detail  the  issues  raised  along  the  way. 
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4  Results  and  Analysis 

4.1  Overview 

To  this  point,  the  primary  emphasis  has  been  on  model  development.  In  addition  to 
bettering  the  predictive  accuracy  of  the  model,  the  detailed  analysis  uncovered  some 
compelling  ideas  that  merit  consideration.  With  the  construction  complete,  we  now 
demonstrate  the  results,  both  in  terms  of  exhibiting  improved  predictive  perfonnance  and 
by  using  the  model  as  a  tool  to  study  specific  concerns.  The  presentation  is,  by  nature, 
open-ended.  We  provide  a  sample  of  outputs  that  target  the  primary  results  with  their 
immediate  corollaries,  and  offer  the  model  itself,  anticipating  its  role  in  addressing  new 
questions  that  emerge. 

In  seeking  quantitative  results,  a  fundamental  issue  arises.  The  true  evolution  of  the 
Lageos  spin  state  is  unknown,  hence  the  need  for  modeling  efforts.  This  presents  a 
quandary.  If  the  truth  is  not  known,  how  can  predictive  accuracy  be  verified?  This 
question  is  answered  in  two  parts.  First,  the  comprehensive  approach  to  refining  the 
model  is  itself  a  claim  to  improvement;  effects  are  implemented  in  more  detail  than  they 
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were  previously.  In  the  absence  of  comparison  data,  this  is  often  the  sole  basis  for 
making  such  a  claim.  Second,  a  proxy  for  the  unknown  truth  is  used — the  Avizonis  data. 

4.1.1  Avizonis  ‘Truth’  Data 

The  empirical  data  provided  by  Avizonis  [1997]  and  the  process  used  to  obtain  it  was 
described  in  Section  1.4.1.  Two  points  are  important:  i)  the  data  completely  characterizes 
the  spin  state  providing  both  spatial  orientation  and  spin  angular  velocity  and  ii)  the 
predictions  are  not  exact,  but  rather,  are  the  result  of  a  statistical  reduction  of  multiple 
candidate  solutions  suggested  by  the  flash  data.  The  former  point  allows  the  Avizonis 
data  to  fully  comply  with  the  role  of  truth  surrogate.  On  the  other  hand,  the  latter  point 
suggests  that  the  data  need  not  be  taken  too  literally.  In  fact,  in  a  reversal  of  roles,  there 
is  reason  to  believe  the  outputs  of  our  model  could  be  useful  in  tightening  the  Avizonis 
predictions.1 2 

In  all,  Avizonis  provides  29  individual  data  sets  at  epochs  between  September  1988 
and  October  1996.  The  predictions  are  concentrated  in  the  1992-93  timeframe,  so  we 
have  focused  on  that  interval  for  data  comparison."  The  reported  spatial  orientation  (right 
ascension  and  declination  of  the  spin  axis)  is  the  root-mean-square  (RMS)  minimum  of 

1  This  idea  was  mentioned  in  relation  to  Currie’s  present  efforts  to  use  Avizonis’  approach  (Currie,  [2002]) 
where  a  quality  a-priori  spin  state  estimation  is  a  necessity.  While  processing  the  older  flash  data  was 
possible  without  such  a  contribution,  the  result  would  still  likely  benefit  from  a  cooperative  refinement. 

2  There  are  three  early  data  points  in  1988-89  that  are  too  isolated  to  be  of  much  use  for  prediction 
comparison.  The  five  most  recent  data  points  from  1995-96  suffer  a  similar  deficiency  but  are  also  subject 
to  greater  uncertainty  due  to  the  slowing  spin  rate  and  so  are  less  reliable  for  comparative  analysis. 
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10-Jun-92 


Avizonis  Spin  Axis  Orientation  with  Error  Ellipsoid 


Figure  4.1  Sample  Avizonis  Lageos  spin  axis  orientation  solution  with  corresponding  error  ellipsoid 

The  spatial  orientation  for  the  Lageos  satellite  spin  state  on  June  10,  1992  is  shown  (centered  diamond) 
with  the  corresponding  1  a  error  ellipsoid  superposed.  The  solution  was  determined  by  Avizonis  from 
optical  flash  data.  A  unit  sphere  is  also  illustrated  to  provide  a  spatial  benchmark. 


the  individual  solutions.  Also  provided  is  an  error  ellipsoid  corresponding  to  the 
statistical  one-sigma  ( 1  <j)  uncertainty  in  the  result.  An  example  for  a  specific  data  point 
is  illustrated  in  Figure  4.1.  Figure  4.2  depicts  the  complete  set  of  1992-93  Avizonis  spin 
axis  solutions;  the  error  ellipsoids  are  also  shown.  Refer  to  Figure  3.5,  on  page  71,  for 
the  Avizonis  spin  angular  velocity  measurements. 

In  addition  to  providing  a  benchmark  for  comparative  analysis,  the  Avizonis  data  is 
also  used  to  supply  the  initial  spin  state  for  the  numerical  integration.  The  right  ascension 
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Avizonis  Spin  Axis  Orientation  Solutions  with  Error  Ellipsoids 


Right  Ascension  (deg) 

Figure  4.2  Lageos  spin  axis  solutions  with  error  ellipses  from  April  1992  to  November  1993 

Avizonis’  spatial  predictions  for  the  Lageos  spin  axis  are  shown  along  with  the  corresponding  error 
ellipses.  The  diamonds  at  the  center  of  the  ellipses  indicate  the  RMS  minimum.  The  time  evolution  of  the 
data  begins  with  the  point  on  the  very  left  edge  of  the  plot;  the  sequence  is  indicated  by  the  connecting 
dashed  line.  The  scales  on  the  axes  differ  causing  a  vertical  elongation  of  the  ellipsoids. 

and  declination  have  immediate  correlation  to  the  Euler  angles  (f>  and  0  respectively. 
Moreover,  symmetry  allows  the  transverse  axes  to  be  arbitrarily  specified,  i.e.,  y/0  can  be 
any  value  we  choose.  Together,  then,  the  initial  values  for  the  Euler  angles  based  on  a 
particular  Avizonis  data  set  (a,  5)  are  given  by 

(f>0=a  +  90° 

0O  =  90°  -  8  .  95 

^o=0° 
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The  initial  rates  for  these  angles  derive  from  the  Avizonis  spin  angular  velocity  co.  In  the 
present  analysis,  the  body  and  spin  axes  are  assumed  coupled  so  that 

\j/0=co .  96 


The  true  transverse  rates  are  non-zero,  but  nevertheless,  inconsequential;  they  are  set  to 
zero  without  loss  of  generality. 

Given  the  potential  error  in  the  Avizonis  data,  some  discrimination  is  warranted  in  the 


selection  of  a  starting  point.  In  particular,  data  sets  with  small  error  ellipsoids  are 


preferred.  The  integration  can  be 

performed  forward  or  backward  in 
time,  but  intuition  favors  the  former. 
Thus,  initializing  the  integration  near 
the  beginning  of  the  data  set  is  also 
desirable.  With  these  criteria,  the 

H&W  model  chose  to  specify  the 
initial  conditions  using  the  solution 
near  -45°  right  ascension,  which  is 
based  on  optical  flash  observations 
collected  on  July  29,  1992  (designated 

920729). 3  Table  4.1  provides  the 


Table  4.1  Avizonis  data  and  Euler  angle  spin 
state  from  the  July  29, 1992  (920729)  data  set 


Avizonis  Spin  Axis  Solution 

Right  Ascension 

a 

-45.68° 

Declination 

8 

-80.60° 

Spin  Rate 

CO 

2.800  °/s 

Initial  Euler  Angle  Spin  State 

Precession  Angle 

</> 

44.32° 

Nutation  Angle 

6 

170.60° 

Spin  Angle 

¥ 

0.00° 

Precession  Angle  Rate 

0.000  °/s 

Nutation  Angle  Rate 

e 

0.000  °/s 

Spin  Angle  Rate 

V 

2.800  °/s 

1  Hereafter,  it  will  be  convenient  to  use  this  yymmdd  format  to  reference  specific  Avizonis  data  points. 
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29-Jul-92 

Avizonis  Spin  Axis  Orientation  with  Error  Ellipsoid 


Figure  4.3  Avizonis  Lageos  spin  axis  solution  for  July  29, 1992 

The  920729  Avizonis  data  is  shown  with  axes  scaled  identically  to  Figure  4.2  to  allow  a  direct  visual 
comparison  of  the  ellipsoid  sizes.  The  small  area  of  the  lcr  ellipsoid  suggests  this  point  is  a  good  candidate 
for  initializing  the  model. 

specific  values  corresponding  to  this  data  point  as  well  as  the  resultant  Euler  angle  spin 
state.  A  “zoomed-in”  view  of  the  920729  data  set  is  shown  in  Figure  4.3;  the  scale  is  set 
to  match  that  of  Figure  4. 1  to  illustrate  the  relative  sizes  of  the  error  ellipsoids. 

Almost  all  of  the  testing  we  performed  during  the  development  of  the  W02  model 
was  also  initialized  with  the  920729  data.  This  was  done  to  allow  direct  comparison  of 
new  data  with  that  from  the  H&W  model.  With  the  completed  W02  model,  however, 
data  runs  have  been  initialized  using  a  number  of  different  points.  Table  4.2  provides  the 
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Avizonis  data  for  the  starting  „  , .  . .  .  .  ...  .  ,  . 

°  Table  4.2  Avizonis  data  sets  used  to  initialize  the  model 

values  used  most  often  in  the 
analysis;  although,  only  a  subset 
of  the  data  is  presented  here. 

To  simplify  the  subsequent 
discussion,  we  refer  to  the 
initial  conditions  by  the 
Avizonis  set  ID.  Implicit  in  the  reference  is  both  the  integration  start  time  and  the 
corresponding  Euler  angle  spin  state  derived  from  the  Avizonis  data. 

One  surprising  discovery  based  on  the  results  from  the  W02  model  casts  doubt  on  the 
quality  of  the  920729  data  set;  we  now  suspect  it  may  be  a  phantom  solution.4.  The 
evidence  will  be  apparent  in  the  subsequent  discussion,  but  suffice  to  say,  that  the  point  is 
a  persistent  outlier  relative  to  the  quality  of  the  results  at  the  other  data  sets. 

4.2  General  Results  and  Analysis 

With  the  Avizonis  data  as  a  benchmark,  the  specific  progress  made  with  the  W02  model 
is  now  analyzed.  At  the  onset,  two  points  are  worth  mentioning  about  the  data  presented. 
First,  the  parameters  for  the  magnetic  torque  component  are  adjusted  to  ensure  the  spin 

4  Due  to  the  geometries  of  the  problem,  the  Avizonis  method  leads  to  several  possible  independent 
solutions,  which  are  then  fdtered  subject  to  specific  criteria.  While  the  process  is  sound,  it  is  nevertheless 
possible  that  a  phantom  solution  is  taken  instead  of  the  true  solution. 
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rate  decay  output  by  the  model  matches  the  empirical  data.  Therefore,  unless  explicitly 
stated  otherwise,  proper  spin  decay  behavior  is  implicit  in  the  results,  and  we  dispense 
with  redundant  presentations  of  Figure  3.5.  Second,  in  lieu  of  lengthy  citations  in  the  text 
of  all  model  settings  for  each  data  run,  only  the  important  parameters  that  make  the  run 
unique  will  be  stated.  However,  for  repeatability,  the  runtime  headers  from  the  L_log.txt 
data  file  listing  all  model  settings  (see  Section  3.7.4)  are  reported  in  Appendix  A. 

4.2.1  H&W  Model  Space-Time  Tracking  Error 

We  begin  by  recalling  the  remarks  associated  with  Figure  1.1.  Because  the  H&W  model 
was  incapable  of  producing  results  at  specific  times,  the  picture  of  the  space-time 
correlation  between  the  predicted  spin  state  and  the  Avizonis  data  was  incomplete. 
Figure  4.4  shows  the  same  H&W5  output  as  Figure  1.1  but  with  the  correlated  data  points 
indicated. 

The  deceptive  nature  of  the  apparent  spatial  agreement  between  the  model’s  output 
and  the  Avizonis  data  is  clear  once  time  is  taken  into  account.  The  trend  of  the  data 
appears  reasonable,  but  the  corresponding  data  points  are  often  significantly  separated. 
These  differences  are  quantified  in  Table  4.3.  The  mean  RSS  error  over  the  data  set  is 
20.6°,  and  most  of  this  is  explained  by  poor  right  ascension  tracking.  Also  note  the 
extreme  outlier  of  the  group  is  the  920729  data  point.  This  will  be  a  persistent  theme. 


5  To  be  precise,  the  data  was  generated  using  a  ‘beta’  version  of  the  W02  model  that  included  targeted 
output  time  capability  but  retained  the  dynamical  characteristics  of  the  H&W  model. 
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H&W  Model  Lageos  Spin  Axis  Evolution 


-90°  -45°  0°  45°  90°  135° 


Right  Ascension  (deg) 


Figure  4.4  H&W  model  Lageos  spin  axis  evolution  with  targeted  output  correlated  to  Avizonis  data 

The  large  diamonds  indicate  specific  output  times  corresponding  to  Avizonis  data  sets.  Light  grey  lines 
connect  a  few  of  the  correlated  data  points  to  assist  with  the  visualization.  While  the  spatial  trend  of  the 
data  is  qualitatively  accurate,  the  space-time  correlation  is  poor.  The  920406  set  provided  the  initial 
conditions  for  the  data  run. 
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Table  4.3  Spatial  errors  in  the  H&W  model  Lageos  spin  state  propagation. 

The  raw  errors  for  right  ascension  and  declination  are  absolute  values  of  the 
difference  between  model  output  and  Avizonis  data.  Also  shown  is  the  root  sum 
of  squares  (RSS)  of  right  ascension  and  declination  errors.  The  data  exhibits  very 
poor  tracking  performance  by  the  H&W  model,  particularly  in  the  right  ascension 
angle.  More  than  a  quarter  of  the  data  points  have  an  RSS  error  of  25°  or  worse. 


Avizonis 

Data  Set 

Raw  a 

Error 

Raw  5 

Error 

RSS  Error 

920406 

0.00° 

0.00° 

0.00° 

920530 

9.02° 

1.43° 

9.13° 

920602 

7.65° 

2.29° 

7.99° 

920610 

11.89° 

2.96° 

12.25° 

920613 

13.20° 

2.44° 

13.43° 

920729 

49.31° 

1.92° 

49.34° 

920901 

26.03° 

4.11° 

26.36° 

920929 

18.88° 

5.83° 

19.76° 

921002 

16.11° 

5.37° 

16.98° 

921007 

14.48° 

5.23° 

15.40° 

921015 

15.33° 

6.44° 

16.63° 

921023 

9.02° 

5.77° 

10.71° 

930424 

24.04° 

3.80° 

24.34° 

930428 

24.89° 

2.85° 

25.05° 

930507 

29.08° 

1.20° 

29.11° 

930602 

21.88° 

3.24° 

22.12° 

930717 

14.91° 

1.65° 

15.00° 

930915 

5.34° 

2.98° 

6.11° 

931016 

20.64° 

1.66° 

20.70° 

931111 

36.24° 

0.41° 

36.24° 

931113 

36.05° 

0.92° 

36.06° 
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4.2.2  W02  Model  Outputs 

Turning  our  attention  to  the  W02  model,  we  begin 
with  the  major  result  of  this  work.  The  primary 
goal  for  the  W02  model  was  to  improve  upon  the 
relatively  poor  space-time  correlation  exhibited 
above.  Figure  4.5  depicts  the  W02  spin  state 
propagation  generated  with  parameters  optimized 
for  a  best  fit  over  the  entire  1992-93  Avizonis  data 
set  using  the  920406  data  point  for  initialization. 
The  920406  global  parameter  set6  values  are  listed 
in  Table  4.4. 


Table  4.4  W02  optimized 

parameter  values  -  the  920406 
global  parameter  set 

cr  was  fixed  in  the  optimization 
because  it  does  not  provide  a 
significant  degree  of  independence 
from  k  and  a.  f  is  a  deprecated 
parameter  so  not  modified  in  the 
optimization. 


h 

1.2798x10s  g  cm2 

h 

1.3070xl08  g  cm2 

a 

23.534  cm 

<j 

l.OxlO17  s'1 

K 

2.4970 

f 

1.0 

The  achievement  of  the  W02  model  is  immediately  apparent.  The  predicted  spin 
orientations  are  a  much  tighter  fit  to  the  central  Avizonis  data  points.  Moreover,  where 
the  predictions  still  miss  the  target,  they  are  much  more  consistent  with  the  error 
ellipsoids  than  the  H&W  model  outputs.  Together,  these  are  profound  results  and 
represent  a  much  stronger  connection  between  theoretical  and  empirical  modeling  efforts 
than  has  previously  been  achieved. 


6  An  optimization  spanning  the  set  of  1992-93  Avizonis  data  values  is  called  a  global  optimization;  the 
optimization  is  local  if  only  a  subset  of  the  data  is  used.  Optimized  parameter  sets  will  also  be  identified  by 
the  data  point  used  as  the  initial  value.  The  model  parameters  used  to  generate  the  data  for  Figure  4.5  are 
the  920406  global  parameter  set. 
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Table  4.5  quantifies  these  results.  The  mean  RSS  error  over  the  data  set  has  been 
reduced  by  70%  to  6.0°.  The  RSS  errors  are  also  much  more  consistent  from  point  to 
point  than  for  the  H&W  model.  Excluding  the  extreme  outlier,  which  is  once  again  the 
920729  data  point,  the  standard  deviation  of  the  remaining  RSS  errors  has  been  reduced 
by  a  factor  of  four. 


W02  Model  Lageos  Spin  Axis  Evolution 


Figure  4.5  Comparison  of  W02  and  H&W  models'  predicted  Lageos  spin  states  with  Avizonis  Data 

The  W02  model  output  (large  diamonds  with  heavy  solid  line)  shows  much  better  tracking  with  the 
Avizonis  data  than  the  H&W  model  (crosses  with  light  solid  line).  Correlations  with  the  Avizonis  data  at  a 
few  of  the  data  points  are  indicated  by  light  grey  lines.  The  run  initialized  on  the  920406  data  point  and  the 
920406  global  parameters  were  used  in  the  model. 
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Table  4.5  Spatial  errors  in  the  W02  model  Lageos  spin  state  propagation 

Error  data  reported  for  the  W02  model  is  in  the  same  format  as  that  of  Table  4.3. 
Excepting  the  outlier  at  920729,  the  data  exhibits  a  dramatic  improvement  over 
the  H&W  model  with  RSS  spatial  errors  of  8°  or  less. 


Avizonis 

Data  Set 

Raw  a 

Error 

Raw  5 

Error 

RSS  Error 

920406 

0.00° 

0.00° 

0.00° 

920530 

5.49° 

0.75° 

5.54° 

920602 

7.91° 

1.66° 

8.08° 

920610 

6.48° 

2.48° 

6.94° 

920613 

6.23° 

2.04° 

6.56° 

920729 

20.06° 

0.24° 

20.06° 

920901 

2.48° 

0.32° 

2.50° 

920929 

4.25° 

0.27° 

4.26° 

921002 

2.47° 

0.26° 

2.48° 

921007 

2.46° 

0.50° 

2.51° 

921015 

6.15° 

0.59° 

6.18° 

921023 

2.27° 

0.11° 

2.27° 

930424 

4.72° 

1.73° 

5.03° 

930428 

4.02° 

0.83° 

4.11° 

930507 

0.04° 

0.71° 

0.71° 

930602 

6.18° 

1.77° 

6.43° 

930717 

6.50° 

1.74° 

6.73° 

930915 

7.07° 

0.18° 

7.07° 

931016 

6.41° 

2.29° 

6.80° 

931111 

7.22° 

2.89° 

7.78° 

931113 

6.47° 

4.17° 

7.70° 
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4.2.3  Observations 

A  number  of  observations  can  now  be  made  about  the  W02  results.  First,  the  data 
represents  a  specific  customized  case.  A  complete  exploration  of  the  issue  requires 
varying  both  the  starting  point  and  the  optimization  technique.  We  have  performed  some 
of  this  analysis,  and  the  results  are  interspersed  on  the  subsequent  pages  starting  with 
Figure  4.6.  However,  the  combinations  are  endless  and  one  can  quickly  get  lost  in 
minutia.  Therefore,  we  will  discuss  the  central  ideas  and  remind  that  the  model  is 
available  for  further  investigation  of  specific  concerns. 

Second,  an  objection  might  be  raised  that  tuning  the  model  to  fit  the  data  doesn’t 
necessarily  imply  quality  performance  beyond  the  benchmark  data  set.  A  valid  issue  but 
also  one  that  we  have  already  addressed  at  length.  In  spite  of  every  best  effort,  the  model 
is  still  only  an  abstraction  of  the  true  system.  It  is,  therefore,  both  contrary  to  reason  and 
no  less  arbitrary  to  hold  any  particular  part  of  the  model  or  its  parameters  as  absolute.  As 
long  as  the  tuning  retains  its  connection  to  the  physical  system,7  it  is  not  only  justified, 
but  also  even  to  be  expected.  Investigating  various  data  runs  as  suggested  in  the 
preceding  paragraph  is  a  good  way  to  explore  potential  sensitivity  to  the  issue. 


7  That  is,  the  physical  implementation  and  the  corresponding  parameters  do  not  deviate  too  far  from 
nominal. 
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Third,  while  the  improved  performance  of  the  W02  model  over  its  predecessor  is 
substantial,  there  remains  opportunity  for  further  progress.  This  can  be  explored  on  a 
number  of  different  levels.  For  one,  further  refinements  to  the  physical  model  may  still 
be  necessary.  Then  again,  some  of  the  remaining  error  might  be  partly  explained  by  the 
uncertainty  in  the  Avizonis  data.  That  is,  the  model  is  actually  performing  better  than  the 


-100°  -50°  0°  50°  100° 


Right  Ascension  (deg) 

Figure  4.6  W02  with  920406  global  parameters;  multiple  data  runs  using  different  initial  conditions 

The  plot  features  data  from  a  few  W02  model  runs  all  using  different  start  times  but  the  same  920406 
global  parameter  set.  Integration  was  performed  forward  and  backward  to  span  the  Avizonis  data  set.  The 
data  exhibit  tracking  performance  similar  to  the  baseline  case  in  Figure  4.5.  In  fact,  this  holds  for 
additional  runs  we  performed  but  omit  from  the  graph  to  avoid  clutter.  This  suggests  some  degree  of 
initial-state  independence  in  the  global  optimization  parameter  set. 
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error  computations  suggest  because  the  comparison  points  also  deviate  from  the  true  spin 
axis  orientation.  This  observation  has  already  led  us  to  suggest  the  cooperative  role  of 
our  model  in  refining  the  empirical  data. 

Finally,  parameter  optimization  is  itself  an  open-ended  process  that  depends  heavily 
on  the  characterization  of  error.  Certainly,  the  optimization  approach  we  implemented 
can  be  further  improved,  thereby  yielding  even  better  results.  For  example,  weighting  the 
error  calculation  to  account  for  the  proximity  to  the  error  ellipsoids  and  allowing  the 
initialization  point  to  drift  within  its  error  ellipse  might  yield  further  substantial  gains. 
Excluding  outliers,  such  as  the  920729  data  point,  may  likely  also  improve  the 
performance  of  the  optimization  over  the  data  set  as  a  whole. 

Local  Optimization  Example 

Figure  4.6  shows  the  W02  output  using  the  920406  global  parameter  set  for  several 
different  sets  of  initial  conditions.  The  relative  consistency  among  the  results  provides 
some  measure  of  confidence  that  the  output  isn’t  hyper-sensitive  to  the  tuning.  The 
results  might  have  been  partly  expected,  however,  because  the  optimization  was  global. 
This  raises  a  question  of  how  a  local  parameter  set  might  perform  over  the  broader  array 
of  data. 


s  Spin  state  propagations  starting  from  different  epochs  will  necessarily  have  some  variance  in  behavior.  A 
set  of  optimized  parameters  for  a  given  interval  and  epoch  (e.g.,  the  920406  global  parameter  set)  will  not 
usually  be  ideal  for  any  other  start  time  even  if  the  optimization  covers  the  same  span  of  data.  To  claim 
general  applicability  of  the  model,  however,  a  particular  optimal  parameter  set  should  not  lead  to  wildly 
divergent  behavior  when  used  with  different  initial  data  points. 
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To  explore  this  idea,  we  performed  a  local 
optimization  using  a  set  of  six  data  points 
spanning  about  two  months  time  beginning  with 
the  initial  conditions  specified  by  the  920901 
data  point.  The  resulting  local  parameter  set  is 
provided  in  Table  4.6.  Figure  4.7  shows  the  data 
run  corresponding  to  this  920901  local 
parameter  set.  The  figure  caption  provides  some 
additional  insights. 

Similar  to  the  case  for  Figure  4.6,  a  number  of  data  runs  were  generated  using  the 
920901  local  parameter  set  and  different  initial  conditions.  The  outputs  of  some  of  these 
runs  are  provided  in  Figure  4.8.  The  results  are  encouraging.  First,  even  though  the 
parameters  were  locally  optimized  over  only  a  handful  of  data  points,  the  integration  with 
the  920901  initial  condition  performs  quite  well  globally.  In  fact,  as  Table  4.7  shows,  the 
individual  error  results  are  similar  to  those  of  the  global  optimization.  Second,  the  data 
runs  (not  all  are  shown  in  Figure  4.8)  using  different  initial  conditions  exhibit  the  same 
kind  of  general  agreement  with  the  empirical  data  that  was  observed  in  Figure  4.6.  The 
tracking  isn’t  quite  as  tight  as  the  global  parameter  cases,  but  that  is  to  be  expected  for 
local  parameters.  The  result  suggests  even  locally  optimized  parameters  demonstrate  a 
degree  of  initial  state  independence,  adding  to  the  credibility  of  the  W02  model. 


Table  4.6  W02  optimized 

parameter  values  -  a  920901 
local  parameter  set 


h 

1.2870xl08  g  cm2 

h 

1.3144xl08  g  cm2 

a 

23.549  cm 

a 

l.OxlO17  s'1 

K 

2.500 

r 

1.0 

162 


Declination  (deg) 


Chapter  4  -  Results  and  Analysis 


H&W  Model  vs.  Local  Optimization  W02 


Figure  4.7  W02  model  local  optimization  Lageos  spin  state  performance  compared  to  H&W  model 

The  plot  depicts  output  from  the  H&W  model  (crosses  with  light  solid  line)  and  the  W02  model  (diamonds 
with  heavy  solid  line)  both  initialized  on  the  920901  data  point.  The  parameters  used  in  the  W02  model  are 
a  920901  local  parameter  set  obtained  by  performing  a  local  optimization  over  the  Avizonis  data  points 
shown  in  the  graph.  The  superb  agreement  between  the  W02  results  and  the  empirical  data  suggests  the 
optimization  approach  is  capable  of  producing  extremely  high  quality  predictions  over  short  intervals  and 
lends  credence  to  the  idea  of  using  the  model  in  an  iterative  predictor-corrector  approach  to  refine 
observation  based  spin  state  estimates. 
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Lageos  Spin  Axis  Evolution 


Figure  4.8  W02  with  920901  local  parameters;  multiple  data  runs  using  different  initial  conditions 

As  was  the  case  in  Figure  4.6,  the  chart  includes  only  a  sample  of  the  data  runs  we  performed.  The  results 
and  analysis  are  similar  to  the  situation  described  in  Figure  4.6.  They  suggest  even  a  locally  optimized 
parameter  set  provides  greatly  improved  global  performance  and  a  measure  of  initial-state  independence. 
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Table  4.7  Spatial  errors  in  the  W02  model  Lageos  spin  state  propagation 
using  a  920901  local  parameter  set 

Error  data  reported  for  the  W02  model  is  in  the  same  format  as  that  of  Table  4.3. 
The  relatively  poor  quality  at  the  920729  data  point  is  again  apparent;  otherwise, 
the  data  shows  performance  similar  to  that  of  the  global  case  in  Table  4.5. 


Avizonis 

Data  Set 

Raw  a 

Error 

Raw  5 

Error 

RSS  Error 

920406 

2.57° 

0.12° 

2.58° 

920530 

3.36° 

0.57° 

3.41° 

920602 

5.85° 

1.46° 

6.02° 

920610 

4.60° 

2.24° 

5.11° 

920613 

4.43° 

1.79° 

4.77° 

920729 

19.72° 

0.17° 

19.72° 

920901 

0.00° 

0.00° 

0.00° 

920929 

0.79° 

0.40° 

0.89° 

921002 

1.03° 

0.16° 

1.04° 

921007 

1.09° 

0.44° 

1.17° 

921015 

2.57° 

0.59° 

2.64° 

921023 

1.28° 

0.17° 

1.29° 

930424 

4.73° 

1.34° 

4.92° 

930428 

4.12° 

0.44° 

4.14° 

930507 

0.24° 

1.09° 

1.12° 

930602 

6.99° 

1.41° 

7.13° 

930717 

8.07° 

1.40° 

8.19° 

930915 

9.21° 

0.10° 

9.21° 

931016 

8.61° 

2.09° 

8.86° 

931111 

9.33° 

2.80° 

9.74° 

931113 

8.57° 

4.09° 

9.50° 
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In  spite  of  the  preceding  general  arguments  to  the  contrary,  one  picture  that  emerges 
over  multiple  runs  with  differing  parameter  sets  and  initial  conditions  is  that  some  data 
points  are  better  suited  as  initial  conditions  than  others.  The  case  against  the  920729  data 
point  has  already  been  made,  but  a  similar  idea  can  be  seen  in  Figure  4.8  with  the  920602 
point.  We  believe  this  suggests  something  about  the  data  rather  than  the  model.  The  two 
data  points  just  cited  illustrate  the  two  possible  explanations.  The  920729  data  point,  as 
we  have  already  mentioned,  may  be  a  false  solution  and  should  be  revisited.  A  different 
possibility  exists  for  the  920602  data  point,  where  the  true  solution  is  likely  not  the  RMS 
minimum  but  rather  another  point  within  the  uncertainty  region.  This  can  be  seen 
visually  in  Figure  4.8  where  the  lower  tip  of  the  920602  lcr  error  ellipse  (third  from  the 
left)  very  nearly  touches  the  very  good  solution  curve  corresponding  to  the  920901  initial 
condition.  Both  of  these  points  are  further  confirmation  that  the  W02  model  can  play  a 
productive  role  in  helping  to  refine  the  empirically  detennined  spin  state  solutions. 

4.3  Additional  Investigations 

With  the  major  result  established,  we  now  undertake  a  preliminary  discussion  of  specific 
issues  that  have  arisen.  This  treatment  is  not  meant  to  be  the  final  word,  but  rather,  to 
elevate  an  awareness  of  the  ideas.  Three  topics  in  particular  are  explored:  i)  the 
sensitivity  of  the  results  to  small  errors  in  the  values  of  the  principal  moments,  ii)  the 
timing  of  the  spin  and  body  axis  decoupling,  and  iii)  the  suggestion  that  the  spin  axis 
solutions  may  be  spatially  inverted  from  the  true  orientation. 
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4.3.1  Sensitivity  to  Small  Changes  in  Principal  Moments 

One  of  the  more  notable  discoveries  of  our  efforts  is  the  sensitivity  of  the  spin  state 
propagation  to  small  changes  in  the  satellite  parameters.  This  is  particularly  true  with 
respect  to  the  satellite  principal  moments  (see  Figure  4.9),  a  point  to  which  we  alluded 
earlier.  Previous  modeling  efforts  apparently  did  not  consider  the  possibility  that  small 
deviations  in  the  principal  moments  would  make  much  of  a  difference  [Kheyfets,  private 


Principal  Moments  Optimization  Error  Diagram 


Figure  4.9  Spatial  RSS  errors  as  a  function  of  the  relative  net  change  of  the  principal  moments 

The  RSS  errors  for  right  ascension  and  declination  are  shown  for  a  local  optimization  in  which  only  the 
principal  moments  were  allowed  to  vary.  The  setup  was  otherwise  the  same  as  the  case  in  Figure  4.7.  The 
principal  moments  were  seeded  with  their  nominal  values  /3  =  1.314x10s  and  I\  =  1.271x10s  (g  cm2).  The 
data  exhibits  a  disproportionally  large  reduction  of  spatial  error  (90%  in  a  and  70%  in  S)  in  response  to  a 
relatively  small  change  in  the  principal  moments  (net  1.3%)  of  the  satellite. 
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communication].  Moreover,  unlike  the  magnetic  torque  model  where  the  abstraction 
mandates  a  parameterized  approach  for  the  values  describing  the  satellite  properties,  the 
principal  moments  have  a  solid  basis  in  physical  reality.  Therefore,  departure  from  the 
empirically  detennined  values  listed  in  Table  2.1  requires  some  justification. 
Exaggerated  response  to  small  changes  in  model  parameters  also  raises  the  question  of 
whether  the  effect  is  physically  valid  or  simply  an  artifact  of  numerical  modeling  (e.g., 
poor  conditioning).  Both  issues  are  examined  to  demonstrate  the  effect  is  a  valid 
physical  response  and  that  small  departures  from  the  nominal  values  are  reasonable. 

There  are  compelling  reasons  to  treat  the  principal  moments  as  flexible  parameters  in 
the  model.  The  first  was  argued  in  Section  4.2.3;  the  generalizations  inherent  to  the 
modeling  process  implicitly  authorize  a  parameterized  view  as  long  as  the  connection  to 
the  physical  system  is  maintained.  Nevertheless,  there  are  also  sound  physical  arguments 
for  assuming  the  principal  moments  may  deviate  from  the  nominal  values.  For  one,  a 
statistical  error  in  the  measured  values  of  the  moments  is  likely.  Whether  a  confidence 
interval  was  reported  with  the  original  data  is  undetermined  (see  footnote  6  on  page  39), 
but  the  values  are  reported  with  only  three  significant  digits  so  at  least  -0.5%  error  can  be 
presumed.  The  thennoelastic  defonnation  described  in  Section  3.3.1  also  perturbs  the 
values  of  the  principal  moments.  The  magnitude  is  uncertain  but  the  effect  becomes 
more  pronounced  as  the  spin  rate  decays  (slower  spin  means  a  greater  temperature 
imbalance  across  the  satellite).  Therefore,  while  we  don’t  recommend  deviating  too  far 
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from  the  empirical  values  for  the  principal  moments,  the  net  combined  relative  change 
represented  in  Figure  4.9  seems  entirely  reasonable. 

The  analytical  justification  for  a  heightened  sensitivity  to  small  changes  in  the 
principal  moments  was  suggested  at  the  end  of  Section  3.4.1.  Both  the  free  response 
portion  of  the  equations  of  motion 
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are  heavily  influenced  by  the  difference  (f  -If  between  the  axial  and  transverse 
principal  moments.  Small  relative  changes  in  the  principal  moments  correlate  to  large 
relative  changes  in  their  difference,  as  illustrated  in  Table  4.8.  While  the  table  only 
shows  the  results  for  changes  to  I\,  the  effect  is  similar  for  /3.  It  can  be  seen,  in 
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Table  4.8  Impact  of  small  relative  changes  to  the  principal  moments 

The  table  shows  how  a  small  relative  change  in  I\  relates  to  a  large  change  in  the  difference  between  the 
principal  moments,  R- 1\.  The  axial  component  is  held  fixed  at  /3  =  1.3 14xl08  to  simplify  the  illustration, 
but  the  correlation  applies  to  both  principal  moments  without  loss  of  generality. 


m 

Relative 
Change  from 
Nominal 

Difference 

(/ 3-/l) 

Relative 
Change  of 
Difference 

1.271e+8 

0.00% 

4.300e+6 

0.0% 

1.277e+8 

0.50% 

3.665e+6 

14.8% 

1.284e+8 

1 .00% 

3.029e+6 

29.6% 

1.290e+8 

1 .50% 

2.394e+6 

44.3% 

1.296e+8 

2.00% 

1.758e+6 

59.1% 

particular,  that  small  changes  to  both  values  that  cooperatively  close  the  gap  between 
them  will  result  in  a  large  overall  impact.  Therefore,  the  effect  is  built  into  the  physical 
system;  it  is  not  an  artifact  of  the  simulation. 


4.3.2  Spin-Body  Axis  Decoupling 

There  is  anticipation  in  the  Lageos  literature  for  significant  dynamical  changes  to  the 
Lageos  spin  state  when  the  spin  frequency  of  the  satellite  reaches  the  orbital  frequency 
(Habib  et  al  [1994]  call  this  the  spin-orbit  resonance).  Among  the  more  important  effects 
is  a  decoupling  of  the  spin  and  body  axes.  The  resulting  spin  motion  complicates  efforts 
to  study  the  behavior  of  the  Lageos  satellite.  Specifically,  we  recall  Currie’s  effort  to 
apply  the  Avizonis  method  to  recently  obtained  optical  data  sets.  With  decoupled 
motion,  a  fundamental  assumption  of  the  method  no  longer  holds,  so  the  results  cannot  be 
supplied  with  any  measure  of  confidence. 
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Table  4.9  Projected  Lageos  spin  rates 

The  table  shows  historical  and  future  spin  rates  for 
the  Lageos  satellites.  The  projections  are  based  on 
the  exponential  decay  with  a  780  JD  half-life. 
Because  the  magnetic  field  beat  frequency  is  twice 
the  orbit  frequency,  the  spin-body  axis  decoupling 
will  begin  780  JD  sooner  than  most  projections 
suggest.  This  result  is  confirmed  by  the  multiple 
frequency  correction  in  our  magnetic  torque 
module. 


Date 

(JD2K) 

Lageos  Spin 
Rate 

Description 

-4110 

9.572  °/s 

Avizonis  Data 

-2826 

3.076  °/s 

Avizonis  Data 

-2439 

2.158  7s 

Avizonis  Data 

-1755 

1.216  7s 

Avizonis  Data 

0 

0.251  7s 

Projection:  J2000 

1743 

0.053  7s 

Projection: 

2x  Orbit  Frequency 

1826 

0.049  7s 

Projection:  2005 

2523 

0.027  7s 

Projection: 

Orbit  Frequency 

3653 

0.010  7s 

Projection:  2010 

It  is  therefore  important  to  secure  an 
accurate  prediction  of  the  timing  of  the 
spin-body  axis  decoupling.  We  raised  the 
issue  (see  Section  3.5.4)  that  most 
references  place  the  event’s  beginning  too 
far  in  the  future.  In  particular,  the 
projections  fail  to  account  for  the  pseudo¬ 
symmetry  of  the  magnetic  field  that 
generates  to  a  field  beat-frequency  twice 
that  of  the  orbital  motion  (recall  Figure 
3.9). 

Table  4.9  extrapolates  the  Lageos  spin 
rate  based  on  the  empirically  determined 
decay  half-life  of  780  JD.  The  anticipated 
matching  of  the  satellite  and  orbit  angular 


velocities  does  not  occur  until  late  November  2006,  but  we  predict  the  “spin-orbit 
resonance”  dynamics  to  occur  more  than  two  years  earlier,  in  October  2004.  These 
results  are  validated  by  the  data  exhibited  in  Figure  4.10  on  page  172.  Additional 


commentary  accompanies  the  charts. 
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Time  (JD2K) 


Figure  4.10  Long  term  evolution  of  the  Lageos  spin  angular  momentum 

The  normalized  body  frame  components  of  the  spin  angular  momentum  vector  (top)  agree  with  the 
predicted  body-spin  decoupling  as  seen  by  the  transfer  of  angular  momentum  to  the  transverse  component. 
Simultaneously,  the  total  angular  momentum  (bottom)  briefly  halts  its  decay.  Later,  the  total  angular 
momentum  settles  to  a  constant  value,  and  the  satellite  returns  to  a  body-spin  coupled  state  but  with  the 
rotation  in  the  opposite  sense.  The  data  was  generated  using  the  920406  global  parameter  set. 
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4.3.3  Spatially  Inverted  Pole 

Finally,  we  briefly  comment  on  an  earlier  issue.  There  is  uncertainty  as  to  the  original 
orientation  of  the  Lageos  spin  vector  following  the  spin-up  at  orbit  insertion.  The  spatial 
location  of  the  initial  spin  axis  was  detennined  by  Rubincam  [1987]  to  have  right 
ascension  and  declination  respectively  of  313°  and  68°.  The  uncertainty  relates  to  the 
direction  of  spin  along  this  axis — the  “northern”  solution  favored  by  Rubincam  places  the 
spin  axis  at  {a  =  313°,  8=  68°}9  while  others  (e.g.,  Farinella  &  Vokrouhlicky  [1996], 
Barlier  et  al  [1996])  have  suggested  the  spatially  inverted  “southern”  solution  at  {a  = 
133°,  8=  -68°}.  The  latter  groups  also  claim  that  the  dynamics  are  not  invariant  under 
this  transformation. 

Adding  to  the  discussion,  Avizonis  [1997]  appeals  to  a  continuity  argument  and 
concludes  that  the  pole  cannot  have  flipped  since  the  initial  solution.  This  implies  that 
the  initial  choice  of  either  the  northern  or  southern  solution  must  persist  in  subsequent 
data  through  the  present  (though  this  will  change  once  spin-body  axis  decoupling  takes 
hold).  Ironically,  Avizonis  credits  Rubincam  for  the  pole  solution  influencing  the 
reduction  of  the  optical  data,  but  the  spin  orientation  results  he  provides  actually  show  the 
southern  solution  was  used. 

By  extension,  we  too  have  implemented  the  southern  bias  in  our  work.  This  was 
simply  a  result  of  utilizing  the  Avizonis  data.  Whether  the  southern  solution  is 

9  Rotation  expressed  in  the  customary  counterclockwise  direction. 
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authenticated  as  the  correct  choice  is  undetermined.  However,  based  more  on  an 
intuition  supplied  by  countless  data  runs  than  on  hard  analysis,  the  picture  appears  to  be 
mixed.  On  the  one  hand,  given  the  strong  performance  demonstrated  by  the  W02  model 
in  the  preceding  sections,  it  seems  unlikely  that  the  wrong  data  was  targeted.  On  the 
other,  some  of  the  responses  observed  during  the  development  stages  of  the  W02  model 
might  be  better  explained  by  a  spatially  inverted  data  set.  This  latter  view  would  put  us 
in  the  northern  hemisphere  with  Rubincam  and  against  the  majority  of  recent  opinions  on 
the  issue. 

The  additions  to  the  magnetic  torque  model,  in  particular,  provided  some  interesting 
results.  For  example,  the  now  deprecated  oblateness  factor  was  inserted  to  allow  the 
cylindrical  core  to  be  approximated  by  a  slightly  flat  (equatorial  radius  larger  than  polar 
radius)  oblate  spheroid.  However,  better  results  were  achieved  for  an  elongated  spheroid. 
There  was  also  a  similar  hint  that  the  directional  scaling  of  the  coefficients  of 
magnetization  might  be  more  productive  if  the  roles  of  the  parallel  and  normal  directions 
were  reversed.  This  is  consistent  with  the  response  of  the  oblateness  parameter.  Perhaps 
these  are  valid  responses  that  hint  at  an  inverted  data  set. 

The  issue  remains  open,  but  it  may  not  be  particularly  important.  The  W02  model 
uses  the  southern  convention  inherited  from  the  Avizonis  data,  but  if  it  turns  out  the 
northern  solution  is  correct,  an  appropriate  set  of  parameters  can  be  easily  derived  using 
the  included  optimization  package. 


174 


Chapter  4  -  Results  and  Analysis 


Summary 

Of  the  three  ideas  just  mentioned,  the  most  impacting  is  the  system’s  sensitivity  to 
perturbations  of  the  principal  moments.  This  motivates  a  closer  look  at  the  issue  as  a 
high  priority  (next  section).  Spin-body  axis  decoupling  is  an  inevitable  event  but 
understanding  the  timing  is  essential  to  proper  analysis  of  optical  data  sets.  The 
possibility  of  a  spatially  inverted  data  set  is  mostly  a  curiosity.  The  W02  Lageos  spin 
model  can  easily  adapt  to  either  convention;  it  may  even  be  useful  in  helping  to  resolve 
the  issue. 

4.4  Future  Work 

There  is  no  finality  to  a  project  of  this  scope.  In  spite  of  significant  accomplishments, 
several  opportunities  exist  to  further  improve  upon  this  work.  Many  of  these  ideas  have 
already  been  suggested  throughout  the  text.  We  summarize  here  and  refer  back  to  the 
appropriate  sections  for  more  detail. 

Equations  of  Motion 

•  We  chose  the  Euler  angle  characterization  (Section  2.2.2)  for  two  reasons:  legacy 
with  the  earlier  version  of  the  model  and  the  intuitive  characterization  of  the  spin 
state.  However,  a  future  revision  may  want  to  consider  implementing  the  quaternion 
(or  similar  non-singular)  formulation  to  avoid  the  numerical  trap  caused  by  the 
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artificial  singularity  of  the  Euler  angle  approach.  As  an  added  benefit,  quaternions 
provide  a  boost  in  efficiency. 

•  Alternately,  the  singularity  can  also  be  treated  by  inserting  a  second  inertial  reference 
frame  that  is  offset  from  the  first  by  a  simple  rotation  of  the  nutation  angle  (6).  This 
approach  is  somewhat  more  cumbersome  but  retains  the  intuition  of  the  Euler  angle 
formulation. 

Physical  Model 

•  Given  the  sensitivity  of  the  system’s  response  to  small  changes  in  the  principal 
moments  of  the  satellite,  the  potential  uncertainties  in  these  values  must  be  better 
addressed.  In  particular,  the  role  of  thennoelastic  deformation  in  perturbing  the 
principal  moments  needs  to  be  evaluated  in  greater  detail.  Because  the  instantaneous 
thennal  properties  of  the  satellite  depend  on  the  spin  state  (rate  and  orientation),  there 
is  an  implicit  time  dependence  of  the  thennoelastic  defonnation.  Depending  on  the 
magnitude  of  the  effect,  the  principal  moments  also  become  time  dependent 
parameters  rather  than  fixed  constants.  It  is  entirely  feasible  that  a  significant  portion 
of  the  residual  error  might  be  squeezed  out  if  this  variance  is  taken  into  account. 

•  The  magnetic  torque  module  also  continues  to  require  attention.  The  multiple 
frequency  adaptation  (Section  3.5.4)  is  a  “first  cut”  solution  that  will  benefit  from 
further  analysis;  although,  it  is  encouraging  that  the  model  generated  the  expected 
spin-body  axis  decoupling  behavior  (Section  4.3.2).  The  alternate  approach  to  the 
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multiple  frequency  problem  we  mentioned  also  bears  further  consideration.  Finally, 
because  the  Earth’s  rotation  frequency  is  just  one  order  of  magnitude  smaller  than  the 
2x  orbit  frequency,  it  may  also  be  prudent  to  include  this  effect  in  the  multiple 
frequency  computation. 

•  We  are  pleased  with  the  directional  scaling  of  the  magnetization  coefficients  (also 
Section  3.5.4),  both  in  concept  and  in  application.  As  a  further  refinement,  however, 
the  scaling  might  alter  the  direction  cosine  approach  to  account  for  the  non-smooth 
cylindrical  edge  condition  in  the  transition  between  body  axis  nonnal  and  parallel 
directions. 

Optimization 

•  The  results  of  the  preceding  sections  provide  strong  confirmation  of  the 
parameterized  approach,  ft  should  be  reiterated,  however,  that  the  parameter 
optimization  is  highly  dependent  on  the  definition  of  the  error  equation  to  be 
minimized  (Section  4.2.3).  Accordingly,  a  computation  that  better  utilizes  the 
statistical  error  information  associated  with  the  benchmark  data  may  provide  yet 
another  dramatic  improvement  to  the  predictive  capability  of  the  model.  Specifically, 
the  spatial  errors  might  be  computed  at  each  point  in  terms  of  components  along  the 
major  and  minor  axes  of  the  error  ellipsoid  and  scaled,  respectively,  by  the  semi¬ 
major  and  semi-minor  axis  values. 
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•  A  further  refinement  of  the  optimization  process  is  suggested  by  the  residual  initial- 
state  dependence  of  the  parameter  sets  (end  of  Section  4.2.3).  Rather  than  fixing  the 
initial  orientation  in  the  data  runs,  the  starting  values  for  right  ascension  and 
declination  could  also  be  inserted  as  optimization  parameters.  This  would  completely 
remove  the  bias  imposed  by  a  specific  initial  state. 

Data  Analysis 

•  Briefly,  the  inverted  pole  issue  (Section  4.3.3)  can  be  evaluated  by  analyzing  the 
performance  of  the  model  against  the  mirror  solutions  for  the  Avizonis  data. 

•  Finally,  as  we  have  mentioned,  the  existing  empirically  detennined  data  sets  can  be 
refined  using  a  cooperative  iteration  of  the  optimized  model  performance  and  the 
Avizonis  reduction  method.  This  would  provide  a  better  location  of  the  likely  spatial 
orientation  within  the  statistical  error  bounds  of  a  given  data  point  and  help  to  filter 
out  phantom  solutions  in  favor  of  previously  discarded  results. 

Summary 

Of  the  ideas  just  listed,  three  are  most  impacting:  i)  reformulating  the  equations  of 
motion;  ii)  addressing  the  thermoelastic  effects;  and  iii)  refining  the  error  equation  in  the 
optimization  process.  If  these  are  accomplished,  there  is  every  reason  to  believe  that 
another  advance  proportional  to  the  leap  from  the  H&W  model  to  our  own  W02  model  is 
possible. 
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4.5  Conclusion 

Context 

In  the  decades  since  Lageos  I  began  its  orbital  life,  spacecraft  have  become  increasingly 
complicated.  With  strange  geometries,  mechanical  inner-workings,  and  autonomous 
attitude  control,  the  modern  breed  of  satellites  make  a  poor  orbital  benchmarks  due  to  the 
uncertainties  surrounding  the  corresponding  perturbations.  Accordingly,  much  of  the 
‘mainstream’  literature  on  spacecraft  torques  treat  the  issues  only  to  the  extent  that  they 
enlighten  a  discussion  on  corrective  control  mechanisms.  In  this  realm,  the 
environmental  effects  on  passive  satellites  seem  an  antiquated  topic. 

And  yet,  it  is  precisely  because  of  the  lack  of  ‘modern’  features  that  Lageos  has 
surfaced  as  an  important,  space-based  laboratory  for  the  study  of  a  vast  array  of 
geodynamic  phenomenon.  Because  of  the  extremely  precise  orbit  position  determination 
available  for  Lageos,  the  satellite  is  an  excellent  candidate  for  the  study  of  small  orbit 
perturbing  phenomena,  including  the  general  relativistic  gravitomagnetic  force.  Proper 
isolation  of  these  effects  require  a  specific  understanding  of  Lageos’  spin  dynamics  so 
that  surface  thermal  forces  (e.g.,  Yarkovsky  drag)  can  be  isolated.  This  has  led  to  a  host 
of  modeling  efforts  from  both  empirical  and  theoretical  perspectives. 

Accomplishments 

Unfortunately,  none  of  the  modeling  efforts  to  date  can  provide  the  degree  of  predictive 
accuracy  required  by  the  above  applications.  The  work  we  present  here  goes  a  long  way 
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toward  closing  the  gap  in  providing  high  quality  predictive  results  for  the  Lageos  spin 
state.  Using  the  most  general  of  the  existing  theoretical  models  as  a  baseline,  we 
accomplished  three  specific  goals. 

First,  we  performed  a  comprehensive  review  of  the  general  problem.  This  led  to 
specific  enhancements  of  the  baseline  model  and  a  tightening  of  the  confidence  in  the 
overall  approach.  Specifically: 

•  The  orbit  model  was  revised  to  correct  a  secular  error  in  the  angular  position 
tracking  and  incorporate  the  modest  effects  of  the  elliptical  motion. 

•  The  gravitational  torque  module  now  includes  the  effects  of  the  Earth’s  J2  zonal 
spherical  harmonic. 

•  The  simplistic  dipole  approximation  for  the  geomagnetic  field  has  been  replaced 
with  the  IGRF  geomagnetic  field  model;  a  10  stage  spherical  hannonic  expansion 
of  the  Earth’s  magnetic  field.  Balancing  precision  and  efficiency,  we  use  the  first 
three  terms  of  the  series. 

•  The  magnetic  torque  model  has  been  enhanced  to  provide  a  scaled  directional 
dependence  of  the  magnetization  coefficients  based  on  the  orientation  of  the 
spacecraft  with  respect  to  the  magnetic  field.  In  addition,  the  torque  is  computed 
for  the  field  frequency  due  both  to  the  satellite  spin  and  the  orbital  motion.  The 
results  are  linearly  superposed  to  provide  a  first  order  approximation  in  response 
to  the  challenging  multiple  frequency  problem. 
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As  a  corollary  to  this  bottom-up  approach,  the  present  document  represents  perhaps  the 
most  comprehensive  encyclopedia  for  the  dynamical  motion  of  the  Lageos  satellite. 

Second,  we  overhauled  the  model  from  a  numerical  and  software  perspective  to 
generate  a  useful  tool  for  present  work  and  future  adaptation.  In  particular,  the  numerical 
integration  capabilities  were  enhanced  to  provide  both  more  efficient  and  more  adaptive 
options.  In  addition,  the  software  architecture  was  restructured  to  make  use  of  powerful 
constructs  of  the  programming  language  and  incorporate  useful  third  party  packages. 
However,  the  most  important  accomplishment  of  the  numerical  revision  was  the  addition 
of  the  parameter  optimization  capability.  This  feature  introduces  a  profound  flexibility 
into  the  Lageos  spin  model  that  enables  new  possible  applications,  including  an  expanded 
role  in  cooperatively  refining  the  empirical  spin  state  solutions. 

Finally,  we  demonstrated  a  dramatic  improvement  in  predictive  capability, 
establishing  for  the  first  time  that  quantitative  results  are  possible  in  the  Lageos  spin 
dynamics  problem  with  the  theoretical  modeling  approach.  Consequently,  there  now 
exists  a  much  stronger  connection  between  theoretical  and  empirical  efforts. 
Specifically,  we  showed  a  70%  reduction  in  the  mean  RSS  error  of  the  spin  state 
predictions  for  the  Avizonis  data  set  spanning  1992-93  and  near  perfect  tracking  for  a 
more  localized  set.  Moreover,  the  analysis  has  helped  identify  future  modifications  that 
will  enable  further  improvements  to  these  results. 

In  the  process  of  achieving  these  goals,  a  number  of  ideas  that  heretofore  had 
apparently  gone  unnoticed  were  exposed.  These  include  the  impact  of  small  changes  to 
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the  principal  moments  of  the  satellite,  the  related  role  of  thermoelastic  deformation,  and  a 
faster  than  anticipated  spin-body  axes  decoupling  due  to  the  2x  orbit  frequency 
oscillation  of  the  magnetic  field.  Our  investigation  of  these  issues  was  preliminary  but 
suggests  implications  that  merit  future  consideration. 

In  short,  we  accomplished  our  objectives,  and  more.  The  revised  Lageos  spin  model 
is  established  as  a  powerful  theoretical  tool  for  investigating  the  dynamical  behavior  of 
the  satellite. 
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Appendices 


Appendix  A  -  Data  Run  Summary  Headers 

The  W02  Lageos  Spin  Model  generates  a  runtime  header  documenting  all  model  settings 
for  each  data  run  (see  L_log.txt  description  in  Section  3.7.4).  The  runtime  headers 
corresponding  to  data  reported  in  the  text  are  listed  here  with  references  to  the  locations 
the  data  was  presented.  For  more  information  on  the  contents  of  the  runtime  header,  see 
the  Lparams.h  file  listed  with  the  code. 


Data  Run  for  Figure  1.1 


Lageos  Spin  Dynamics  Model  Version  2.7 


Date:  30  Nov  2002 


Start  Time:  19:13:59 


Stop  Time:  19:18:28 


Total  Time: 


4:29.0 


Run  Description 
Integrator  Ctrl 


Physical  Const 
Earth  Magnetic 
Orbit  Params 


>  Baseline  Data  Run 

>  Input  Source  =  Program  Defaults 

>  Driver  =  lageos_spin_de  (variable  order/variable  step  Adams  PECE  method 

>  RTOL  =  1.0e-008;  ATOL  =  2.2e-016 

>  MaxStepSize  =  100.0s;  MaxInternalTimeValue  =  1.0e+006 

>  GM  =  3. 986004418 e+ 020;  C  =  2 . 99792458e+010 

>  Dipole  Moment  =  7 . 8115998e+025;  Pole  Location 

>  a  =  1227119200.;  [e  =  0.0];  i  =  109.840460; 

>  RAAN  =  { 109 . 051226,  0.3425558366} 

>  M+w  =  {319. 491478 ,  2298.9786567857} 

>  Moments:  II  =  1.271e+008;  13  =  1.314e+008 

>  Metallic  Core:  radius  =  26.35;  effective  conductivity  =  1 

>  theta  =  (165.70,  le-016) ;  phi  =  (3.56,  le-016) ;  psi  =  (0 

>  epoch  =  -2826.333206  (JD2K) 


=  -71.406820  Ion,  10.704433  co-lat 
[w  =  0. 0]  ;  [M  =  M+w] 


Satellite 
ICs  (angle, rate) 

Units  are  cgs  &  degrees;  some  values  implicit/not  directly  used  depending  on  integration  method 


.  098e+017 
.00,  3.0764) 
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Data  Run  for  Figure  4.4  and  Table  4.3 


Date:  12  Dec  2002 


Lageos  Spin  Dynamics  Model  Version  2.7 
Start  Time:  17:11:07  Stop  Time:  17:13:28 


Total  Time:  2:20.5 


Run  Description 
Integrator  Ctrl 


Physical  Const 
Earth  Magnetic 
Orbit  Params 


Satellite 

ICs  (angle, rate] 

Units  are  cgs  & 


>  H&W  Model  with  targeted  output  times 

>  Input  Source  =  Program  Defaults 

>  Driver  =  lageos_spin_de  (variable  order/variable  step  Adams  PECE  method 

>  RTOL  =  1.0e-008;  ATOL  =  2.2e-016 

>  MaxStepSize  =  100.0s;  MaxInternalTimeValue  =  1.0e+006 

>  GM  =  3. 986004418 e+ 020;  C  =  2 . 99792458e+010 

>  Dipole  Moment  =  7 . 8115998e+025;  Pole  Location 

>  a  =  1227119200.;  [e  =  0.0];  i  =  109.840460; 

>  RAAN  =  {109.051226,  0.3425558366} 

>  M+w  =  {319.491478,  2298.9786567857} 

>  Moments:  II  =  1.271e+008;  13  =  1.314e+008 

>  Metallic  Core:  radius  =  26.35;  effective  conductivity  =  1 

>  theta  =  (165.70,  le-016) ;  phi  =  (3.56,  le-016) ;  psi  =  (0 

>  epoch  =  -2826.333206  (JD2K) 

degrees;  some  values  implicit/not  directly  used  depending  on  integration  method 


=  -71.406820  Ion,  10.704433  co-lat 
[w  =  0.0] ;  [M  =  M+w] 


.  098e+017 
.00,  3.0764) 


Data  Run  for  Figure  4.5  and  Table  4.5 


Lageos  Spin  Dynamics  Model  Version  5.0 


Date:  12  Dec  2002 


Start  Time:  17:57:45 


Stop  Time:  18:02:28 


Total  Time: 


4:43.0 


Run  Description 
Integrator  Ctrl 


Physical  Const 
Earth  Models 

Orbit  Params 


r  Satellite 
r  ICs  (angle, rate 
Units  are  cgs  & 


>  Data  Analysis-Global  Optimization  Performance 

>  Input  Source  =  Program  Defaults 

>  Driver  =  lageos_spin_de  (variable  order/variable  step  Adams  PECE  method 

>  RTOL  =  1.00e-8;  ATOL  =  2.22e-16 

>  MaxStepSize  =  100.0s;  MaxInternalTimeValue  =  1.00e+7 

>  C  =  2. 99792458 e+ 10;  RE  =  6 . 3781366e+8 ;  GM  =  3 . 986004418e+20;  J2  =  1.0826359e-3 

>  Gravity  gradient  includes  1st  nonspherical  geopotential  term  (J2) 

>  Magnetic  field  generated  using  IGRF2000  spherical  harmonic  terms  up  to  order  3 

>  a  =  1227119174.;  e  =  0.0044319;  i  =  109.84188;  [w  =  (M+w)  -  M] ; 

>  RAAN  =  {  109.051226,  0.34255584} 

>  M+w  Quad  =  {  319.420422,  2298.97906233,  1 

>  M  Quad  =  {  107.570967,  2299.19307317,  1 

>  Moments:  II  =  1.2798e+8;  13  =  1.3070e+8 

>  MagTrq :  OrbFrq=l  R(eq)=23.534  flat=0.00% 

i  >  theta  =  (165.70,  1.0e-016);  phi  =  (3.56 

>  epoch  =  -2826.333206  (JD2K) 

degrees;  some  values  implicit/not  directly  used  depending  on  integration  method 


.  77236871e-7 } 

.  7  0332257e-7 } 

MCScl=2 . 50  MCShl=0 . 00 
1.0e-016) ;  psi  =  (0.00, 


sig=l . 0000e+17* 
3.0764)  * 


Note:  the  runs  for  Figure  4.6  use  the  same  parameters  as  above  with  different  initial 
conditions.  The  three  starting  points  represented  are  from  the  920729,  920901,  and 
930428  data  sets  and  the  corresponding  initial  states  are  derived  from  Table  4.2  in  the 
manner  described  in  the  text. 
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Data  Runs  for  Figure  4.7  and  Figure  4.8 


Lageos  Spin  Dynamics  Model  Version  5.0 


Date:  13  Dec  2002 


Start  Time:  21:00:36 


Stop  Time:  21:04:19 


Total  Time: 


Run  Description 
Integrator  Ctrl 


Physical  Const 
Earth  Models 

Orbit  Params 


Satellite 


ICs  (angle, rate) 


>  Data  Analysis 

>  Input  Source  —  Program  Defaults 

>  Driver  =  lageos_spin_de  (variable  order/variable  step  Adams  PECE  method 

>  RTOL  =  1.00e-8;  ATOL  =  2.22e-16 

>  MaxStepSize  =  100.0s;  MaxInternalTimeValue  =  1.00e+7 

>  C  =  2. 99792458 e+ 10;  RE  =  6 . 3781366e+8 ;  GM  =  3 . 98 6004418e+20;  J2  =  1.0826359e-3 

>  Gravity  gradient  includes  1st  nonspherical  geopotential  term  (J2) 

>  Magnetic  field  generated  using  IGRF2000  spherical  harmonic  terms  up  to  order  3 

>  a  =  1227119174.;  e  =  0.0044319;  i  =  109.84188;  [w  =  (M+w)  -  M] ; 

>  RAAN  =  {  109.051226,  0.34255584} 

>  M+w  Quad  =  {  319.420422,  2298.97906233,  1 . 77236871e-7 } 

>  M  Quad  =  {  107.570967,  2299.19307317,  1 . 70332257e-7 } 

>  Moments:  II  =  1.2870e+8;  13  =  1.3144e+8 

>  MagTrq :  OrbFrq=l  R(eq)=23.549  flat=0.00%  MCScl=2 . 50  MCShl=0.00  sig=l . 0000e+l 

>  theta  =  (170.67,  1.0e-016);  phi  =  (90.36,  1.0e-016);  psi  =  (0.00,  2.69865) 

>  epoch  (start)  =  -2678.446690  JD2K;  stop  =  -2240.446528  JD2K 


0.00  sig=l . 0000e+17* 
0.00,  2.69865)  * 


Units  are  cgs  &  degrees;  some  values  implicit/not  directly  used  depending  on  integration  method 


Lageos  Spin  Dynamics  Model  Version  2.7 

Date:  13  Dec  2002  Start  Time:  20:44:33  Stop  Time:  20:47:13  Total  Time:  2:40.1 


Run  Description 
Integrator  Ctrl 


Physical  Const 
Earth  Magnetic 
Orbit  Params 


Satellite 


ICs  (angle, rate] 


Units  are  cgs  & 


>  H&W  Model  with  targeted  output  times 

>  Input  Source  =  Program  Defaults 

>  Driver  =  lageos_spin_de  (variable  order/variable  step  Adams  PECE  method 

>  RTOL  =  1.0e-008;  ATOL  =  2.2e-016 

>  MaxStepSize  =  100.0s;  MaxInternalTimeValue  =  1.0e+006 

>  GM  =  3. 986004418 e+ 020;  C  =  2 . 99792458e+010 

>  Dipole  Moment  =  7 . 8115998e+025;  Pole  Location  =  -71.406820  Ion,  10.704433  co-lat 

>  a  =  1227119200.;  [e  =  0.0];  i  =  109.840460;  [w  =  0.0];  [M  =  M+w] 

>  RAAN  =  {109.051226,  0.3425558366} 

>  M+w  =  {319.491478,  2298.9786567857} 

>  Moments:  II  =  1.271e+008;  13  =  1.314e+008 

>  Metallic  Core:  radius  =  26.35;  effective  conductivity  =  1.098e+017 

>  theta  =  (170.67,  le-016) ;  phi  =  (90.36,  le-016) ;  psi  -  (0.00,  2.69865) 

>  epoch  =  -2678.446690  (JD2K) 

degrees;  some  values  implicit/not  directly  used  depending  on  integration  method 


1 .098e+017 
(0.00,  2.69865) 


Note:  the  additional  W02  runs  for  Figure  4.8  use  the  same  parameters  as  the  Lageos  5.0 
case  above  but  with  different  initial  conditions.  The  three  starting  points  represented  are 
from  the  920602,  920729,  and  920901  data  sets  and  the  corresponding  initial  states  are 
derived  from  Table  4.2  in  the  manner  described  in  the  text. 
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Data  Runs  for  Figure  4.9 


Date:  30  Nov  2002 


Lageos  Spin  Dynamics  Model  Version  4.4b 
Start  Time:  01:14:35  Stop  Time:  01:14:35 


Total  Time: 


0:00.0 


Run  Description 
Integrator  Ctrl 


Physical  Const 
Earth  Models 


>  Local  Optimization  -  Principal  moments  only 

>  Input  Source  =  Program  Defaults 

>  Driver  =  lageos_spin_de  (variable  order/variable  step  Adams  PECE  method 

>  RTOL  =  1.00e-8;  ATOL  =  2.22e-16 

>  MaxStepSize  =  100.0s;  MaxInternalTimeValue  =  5.00e+6 

>  C  =  2. 99792458 e+ 10;  RE  =  6 . 3781366e+8 ;  GM  =  3 . 98 6004418e+20;  J2  =  1.0826359e-3 

>  Gravity  gradient  includes  1st  nonspherical  geopotential  term  (J2) 

>  Magnetic  field  generated  using  IGRF2000  spherical  harmonic  terms  up  to  order  3 


* 

Orbit  Params 

> 

a  =  1227119174.; 

e  =  0 . 

,0044319;  i  =  109. 

84188;  [w  = 

(M+w)  -  M] ;  * 

* 

> 

RAAN 

=  {  109 

.051226, 

0.34255584} 

* 

* 

> 

M+w  Quad 

=  {  319 

.420422, 

2298.97906233,  1 

.  77236871e-7 ; 

} 

* 

> 

M  Quad 

=  {  107 

.570967, 

2299.19307317,  1 

.  7  0332257e-7 ; 

} 

* 

Satellite 

> 

Moments : 

11  =  1. 

2710e+8; 

13  =  1 . 3140e+8 

* 

* 

> 

MagTorq: 

R  (eq)  = 

23.600; 

flat=  0.00%;  MCScl=  2.50;  MCShl=  0.00;  sig=  1.0000e+17* 

* 

ICs  (angle, rate) 

> 

theta  - 

(170.67, 

1.0e-016) ;  phi  =  (90.36, 

1 .0e-016) ; 

psi  =  (0.00,  2.69865)  * 

* 

> 

epoch  -  - 

-2678.44 

6690  (JD2K) 

* 

Units  are  cgs  &  degrees;  some  values  implicit/not  directly  used  depending  on  integration  method 


Data  Run  for  Figure  4.10 


Lageos  Spin  Dynamics  Model  Version  5.0 


Date:  14  Dec  2002 


Start  Time:  15:26:36 


Stop  Time:  16:44:12 


Total  Time:  77:35.9 


Run  Description 
Integrator  Ctrl 


Physical  Const 
Earth  Models 

Orbit  Params 


Runge-Kutta  method) 


>  Data  Analysis 

>  Input  Source  =  Program  Defaults 

>  Driver  =  lageos_spin_rk  (order  8(5,3 

>  RTOL  =  1.00e-10;  ATOL  =  2.22e-16 

>  MaxStepSize  =  100.0s;  MaxInternalTimeValue  =  1.00e+7 

>  C  =  2. 99792458 e+ 10;  RE  =  6 . 3781366e+8 ;  GM  =  3 . 98 6004418e+20;  J2  =  1.0826359e-3 

>  Gravity  gradient  includes  1st  nonspherical  geopotential  term  (J2) 

>  Magnetic  field  generated  using  IGRF2000  spherical  harmonic  terms  up  to  order  3 

>  a  =  1227119174.;  e  =  0.0044319;  i  =  109.84188;  [w  =  (M+w)  -  M] ; 

>  RAAN  =  {  109.051226,  0.34255584} 

>  M+w  Quad  =  {  319.420422,  2298.97906233,  1 . 77236871e-7 } 

>  M  Quad  =  {  107.570967,  22  99.19307317,  1 . 70332257e-7 } 

Satellite  >  Moments:  II  =  1.2798e+8;  13  =  1.3070e+8 

>  MagTrq :  OrbFrq=l  R(eq)=23.534  flat=0.00%  MCScl=2.50  MCShl=0.00 

ICs  (angle, rate)  >  theta  =  (165.70,  1.0e-016);  phi  =  (3.56,  1.0e-016);  psi  =  (0.00, 

>  epoch  (start)  =  -2826.333206  JD2K;  stop  —  22173.666794  JD2K 
Units  are  cgs  &  degrees;  some  values  implicit/not  directly  used  depending  on  integration  method 


sig=l . 0000e+17* 
3.0764)  * 


195 


List  of  References 


Appendix  B  -  Lageos  Software  Package  Source  Code 

The  following  is  a  listing  of  the  source  code  for  custom  portions  of  the  Lageos  spin 
model  (see  3.7.5  for  the  contents  of  each  module  and  explanations  of  the  specific  files). 
Source  code  for  external  packages  integrated  into  the  model  can  be  found  at  the 
references  provided  in  the  text.  Electronic  copies  of  the  source  code  for  the  model  will 
be  provided  on  demand.  Send  requests  to  the  author’s  permanent  email  address: 
sewilli@alum.mit.edu;  please  include  a  brief  statement  citing  the  interest  in  the  problem 
and  the  intended  purpose  for  the  software. 


The  Modules 

•  Model  Control .  197 

•  Physical  Model . 222 

•  Numerical  Routines  . 235 

•  Optimization  Package  . 242 
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Model  Control 


LMAIN.C 


#include  "Lincl.h" 
♦include  "Lglob.h" 


PROGRAM:  LAGEOS  Spin  Dynamics  Model 

Models  the  body  spin  dynamics  of  the  LAGE0S1  satellite. 

INPUTS/OUTPUTS/RETURN  VALUE:  none 
INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  stdlib.h,  stdio.h 

-  Lprot.h  :  bsstepO,  deriv(),  deriv_shell_de  ()  ,  deriv_shell_rk () ,  dump_headers  ()  , 

:  dump_log(),  file_ops(),  get_params ( ) ,  global_alloc ( ) ,  lageos_main ( ) , 

:  lageos_optmain ( ) ,  lageos_spin_de ( ) ,  lageos_spin_nr ( ) ,  lageos_spin_rk ( ) 

-  Lparams.h  :  _FOPT 

Lglob.h  :  fp_log,  gf_driver,  gf_out 
COMMENTS : 


First  release  written  by  Warner  A.  Miller  and  Dan  Holz  of  the  Theoretical  Astrophysics 
Group  (T-6  MS  B288) ,  Theoretical  Division,  Los  Alamos  National  Laboratory 
Updates  written  by  Scott  Williams,  a  graduate  student  in  Applied  Mathematics  at  North 
Carolina  State  University.  Details  about  the  model  (physical,  numerical,  software)  are 
available  in  a  PhD  dissertation  "The  Lageos  Satellite:  A  Comprehensive  Spin  Model  and 
Analysis"  accessed  via  the  NC  State  Library  website. 

I  have  tried  to  be  thorough  and  accurate  with  accompanying  comments  but  there  were  times 
when  the  pace  of  development  exceeded  the  pace  of  commentary.  Therefore,  there  may  be 
mismatches  between  commentary  and  code. 

USE: 


I  envisioned  writing  a  detailed  "User's  Guide"  to  this  package  but  time  and  other  demands 
interfered.  The  commetn  header  (such  as  this  one)  with  each  function  should  be  enough  to 
understand  the  use  of  the  software.  Also  refer  to  the  *.h  files,  (Lparams.h  and  Lopt.h 
in  particular)  for  more  detailed  information.  Finally,  the  aforementioned  dissertation 
contains  a  section  devoted  to  the  software  development  and  features  of  this  package. 

REUSE : 


This  software  is  intended  for  the  general  use  of  anyone  interested  in  the  subject  matter. 
I  would  love  to  claim  that  it  is  completely  portable  but  in  fact  it  most  likely  is  not.  My 
development  environment  uses  the  Mingw  port  (Win  32)  of  GCC  (the  GNU  Compiler  Collection) 
and  so  I  expect  the  software  should  work  well  with  most  any  GCC  based  compilers. 

Still,  there  are  a  couple  of  things  to  be  aware  of.  First,  I  have  utilized  several  new 
features  of  the  C99  standard  and  possibly  some  language  extensions  which  may  be  peculiar 
to  GCC.  These  features  are  enabled  with  the  compiler  command  -std=gnu9x.  I  expect  most 
other  compilers  have  similar  capability  to  extend  their  feature  set. 

Second,  this  package  includes  Fortran  source  code  as  well  as  C.  The  gcc  package  includes 
compilers  for  several  different  languages  (C,  C++,  Fortran,  Java,  ?)  and  the  generic 
compiler  (gcc)  automatically  selects  the  appropriate  compiler  for  a  given  source-code 
file  and  then  seemlessly  links  the  resulting  objects.  To  enable  the  C  to/from  Fortran 
interface,  though,  it  is  necessary  to  add  the  link  commands  -lg2c  -lm  (in  that  order) .  The 
g2c.h  header  file  will  also  need  to  be  included  wherever  C  code  is  calling  Fortran. 

Finally,  extensive  use  has  been  made  of  the  GNU  Scientific  Library  (GSL) .  GSL  is  a 
comprehensive  library  for  numerical  computing  written  natively  in  ANSI  C.  It  is  freely 
available  on  the  web  and  easy  to  'install'.  Once  the  GSL  headers  and  libraries  are  in 
locations  that  your  compiler  can  find  them,  you  will  need  to  issue  the  link  commands 
-lgsl  -lgslcblas.  If  the  compiler  supports  inline  functions,  the  GSL  routines  will  run 
faster  if  the  compiler  flag  -DHAVE_INLINE  is  issues. 


NOTE:  The  three  routines  lageos_spin_xx ( )  (_nr,  _rk,  _de)  really  ought  to  be  merged  into  a 

single  control  routine  "lageos_spin"  which  loops  from  node  to  node  (much  as  is  already 
done  in  _rk  &  _de)  with  separate  evolve_xx()  that  performs  the  simpler  task  of 
integrating  from  the  input  node  to  the  output  node.  Not  too  difficult  to  do  but  a 
diversion  from  my  current  efforts  .  .  . 

MODIFICATION  HISTORY: 

????  Warner  Miller  First  Release 

Dan  Holz 

9711  Scott  Williams  Improved  model  of  earth's  magnetic  field  and  restructured  code 

0210  Scott  Williams  Sig  changes  in  program  architecture  &  data  handling;  modest 
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0211  Scott  Williams 


int 


main  (void) 


tweaks/ improvements  to  specific  model  elements  &  parameters 
Revised  physical  model  components,  inserted  additional  integration 
packages,  added  optimization  capability 


switch  (_FOPT)  { 

case  2:  lageos_main ( ) ;  //  do  both! 

case  1:  lageos_optmain () ;  break; 
default :  lageos_main ( ) ; 


system ( "PAUSE" ) ;  /*  "Press  any  key  to  continue..."*/ 

return  0; 

} 

//  proxy  for  main() 
void  lageos_main (void) 

{ 

int  i; 


global_alloc (1) ; 
get_params (0) ; 
global_alloc (2)  ; 

i  =  (gf_out  ==  2 )  ?  -1  :  0; 
f ile_ops (i)  ; 

dump_log ( fp_log,  0,  NULL,  NULL,  NULL,  NULL, 
dump_headers ( )  ; 
f ile_ops  (1)  ; 


//  allocate  global  matrices  &  vectors 
//  get  pre-defined  program  parameters 
//  allocate  more  global  matrices  &  vectors 

//  switch:  file  stream  or  null  stream 
//  open  data  output  file  streams 
NULL,  NULL,  NULL) ; 


switch  (gf_driver)  { 

case  1 :  lageos_spin_nr 
case  2 :  lageos_spin_rk 
case  3:  lageos_spin_de 
default:  lageos_spin_nr 

} 


(  (void  *)  deriv,  (void  *)  bdstep) ;  break; 
(  (void  *)  deriv_shell_rk) ;  break; 
(deriv_shell_de) ;  break; 

(  (void  *)  deriv,  (void  *)  bsstep) ; 


dump_log ( stdout ,  0,  NULL,  NULL,  NULL,  NULL,  NULL,  NULL,  NULL); 
f flush ( fp_log) ; 

//  screen  print  angular  velocity  data  at  end  of  run  (deprecate?) 
for  (i=0;  i<g_tcnt; i++) 

fprintf (stdout, "g_w[%2d] .*  is  %8.2f  %10.2e  %10.2e  %10.2e  %7.2f  %7.2f  %7.2f  %7.2f 
"%7.2f  %7.2f\n",  i,  g_w[i].jd2k,  g_w[i].mag,  g_w[i].ax, 
g_w[i] .tr,  g_w[i] .Blon*M_DPR,  g_w[i] . Blat*M_DPR,  g_w[i] . ra*M_DPR, 
g_w[i] .dec*M_DPR,  g_w[i] .01on*M_DPR,  g_w[i] .01at*M_DPR) ; 

// - 

global_alloc (0) ;  //  free  dynamically  allocated  memory 

file_ops(2);  //  close  data  output  file  streams 


PROGRAM:  global_alloc 

Allocates/de-allocates  dynamic  memory  for  global  matrices  and  arrays 
INPUTS/OUTPUTS/RETURN  VALUE: 

f_mode  :  0=free  memory;  l=allocate  memory  b4  get_params;  2=allocate  memory  after  get_params 
INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  malloc.h,  gsl_matrix . h,  gsl_vector . h,  FLAG,  euler_data{ } ,  spin_data{} 

-  Lprot.h  :  lageos_error ( ) , 

-  Lparams.h  :  _NOUT,  _NVAR, 

Lglob.h  :  gT_o2e,  gT_e2b,  gT_b2L,  gT_b2Lrl,  gT_b2Lr2,  gT_b2Lr3,  gv_B,  gv_Bb,  gv_NmagB, 

:  gv_work,  g_euler,  g_L,  g_nout,  g_orb,  g_out,  g_state0,  g_w 

COMMENTS : 

This  routine  allocates  memory  for  the  default  vector/matrix/array/struct  sizes  hard-coded 
into  the  program  via  the  Lparams.h  header.  If /when  the  capability  is  added  to  read  program 
parameters  in  from  a  file,  some  of  variables  allocated  here  will  need  to  be  reallocated 
within  the  read-in  routines.  Freeing  the  memory  can  still  be  done  entirely  within  the 
context  of  this  routine. 


void  global_alloc (FLAG  f_mode) 

{ 


/ 


int  i; 
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switch  (f_mode) 

{ 

//  allocate  memory  needed  by  get_params  and/or  for  general  use 
case  1:  { 

gT_o2e  =  gsl_matrix_calloc (3, 3) ; 
gT_e2b  =  gsl_matrix_calloc (3, 3) ; 
gT_b2L  =  gsl_matrix_calloc (3, 3) ; 
gT_b2Lrl  =  gsl_matrix_row (gT_b2L,  0) ; 
gT_b2Lr2  =  gsl_matrix_row (gT_b2L,  1); 
gT_b2Lr3  =  gsl_matrix_row (gT_b2L,  2); 
g_state0  =  gsl_vector_calloc (_NVAR) ; 
g_out  =  gsl_vector_calloc (_NOUT) ; 
gv_B  =  gsl_vector_calloc (3) ; 

gv_Bb  =  gsl_vector_calloc (3) ; 
gv_Nmagb  =  gsl_vector_calloc (3) ; 
gv_work  =  gsl_vector_calloc (3) ; 
g_orb.v_r  =  gsl_vector_calloc (3) ; 
break;  } 

//  allocate  memory  needing  get_params  info 
case  2:  { 

/*  allocate  storage  constructs  for  targeted  outputs  if  required;  space  needed  is 
1st  +  last  +  all  targets  between  <=  2  +  g_nout  -  g_outndx  b/c  g_outndx  is  #  of 
elements  skipped  to  get  to  first  target  in  output  range  */ 

i  =  2  +  g_nout  -  g_outndx; 

g_euler  =  (struct  euler_data  *)  malloc  (i*(sizeof  (struct  euler_data) ) ) ; 

if  (g_euler==0)  lageos_error ( "Couldn ' t  allocate  memory  for  g_euler  structure"); 
g_L  =  (struct  spin_data  *)  malloc  (i*(sizeof  (struct  spin_data) ) ) ; 

if  (g_L==0)  lageos_error ("Couldn 't  allocate  memory  for  g_L  structure"); 

g_w  =  (struct  spin_data  *)  malloc  (i*(sizeof  (struct  spin_data) ) ) ; 

if  (g_w==0)  lageos_error ("Couldn 't  allocate  memory  for  g_w  structure"); 

break;  } 


case  0:  {  //  free  allocated  memory 

gsl_matrix_f ree (gT_o2e) ; 
gsl_matrix_f ree (gT_e2b) ; 
gsl_matrix_f ree (gT_b2L) ; 
gsl_vector_free (g_state0) ; 
gsl_vector_free (g_out) ; 
gsl_vector_free (gv_B) ; 
gsl_vector_free (gv_Bb) ; 
gsl_vector_f ree (gv_Nmagb) ; 
gsl_vector_f ree (gv_work) ; 
gsl_vector_free (g_orb.v_r) ; 


//  de-allocate  targeted  output  storage 
free  ((struct  euler_data  *)  g_euler) ; 
free  ((struct  spin_data  *)  g_L) ; 
free  ((struct  spin_data  *)  g_w) ; 
break;  } 


PROGRAM:  intgr8_init 

Common  initialization  routine  for  the  various  lageos_spin_xx ( )  driver  routines. 
INPUTS/OUTPUTS/RETURN  VALUE: 
nvar  -  dimension  of  the  system 

y  -  UNIT  OFFSET  vector  [1  ...  nvar]  with  initial  state  of  dependent  variables 
h  -  signed  initial  stepsize  (s) 
x  -  initial  local  time  (s) 
stop  -  local  stop  time  (s) 

dsav  -  signed  local  time  interval  (s)  for  recurring  output 
xsav  -  local  time  (s)  of  next  recurrent  output  node 
nout  -  array  index  of  next  targeted  output  node 
xout  -  local  time  (s)  of  next  targeted  output  node 
INCLUDES /EXTERNAL  REFERENCES: 


Lincl .h 
Lglob .h 


math.h,  gsl_vector .h,  _JD2S() 
g_atol0,  g_epoch,  g_h0,  g_nout,  g_out, 
g_state0,  g_stop,  g_tcnt 


g_outndx,  g_rtol0. 


COMMENTS : 

MODIFICATION  HISTORY: 
0210  Scott  Williams 


First  Release 


intgr8_init (const  int  nvar,  double  *y,  double  *h,  double  *x,  double  *stop. 
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double  *dsav,  double  *xsav,  int  *nout,  double  *xout) 


int  i; 

//  retrieve  program  inputs  and  initialize  variables 

for  (i=l;  i<=nvar;  i++)  y[i]  =  gsl  vector  get(g  stateO,  i-1) ; 


*h  =  g_hO ; 

*  x  =  0; 

*stop  -  _JD2S (g_stop  -  g_start) ; 
g_epoch  -  g_start; 

*dsav  =  g_save  ?  _JD2S (g_save)  :  *stop; 
*xsav  -  *dsav; 

*nout  =  g_outndx; 
g_tcnt  =  0; 
g_rtol  -  g_rtol0; 
g_atol  -  g_atol0; 


//  initial  step  size  (signed) 

//  set  independent  variable  &  output  anchor 
//  set  local  stop  time  (s  from  g_start) 

//  initialize  global  time  tracker  (JD2K) 

//  signed  interval  for  recurring  output 
//  local  time  of  next  recurrent  output 
//  indx  of  time  of  next  targeted  output 
//  targeted  output  counter  (incl  1st  &  last) 


//  If  targeted  output  off  or  no  target  nodes  in  integration  direction,  set  xout  to  stop 
if  ( ! g_nout  | |  *nout  ==  g_nout)  *xout  =  *stop; 

//  Else  set  xout  to  1st  target  time  in  direction  of  integration  &  convert  to  local  time 
else  { 

*xout  =  _JD2S (gsl_vector_get (g_out,  *nout)  -  g_epoch) ; 

*xout  =  (fabs(*xout)  >  fabs(*stop))  ?  *stop  :  *xout;  //  but  no  need  to  go  beyond  stop 


PROGRAM:  lageos_spin_nr 

Driver  routine  for  the  LAGEOS  satellite  spin  dynamics  model  using  numerical  integration 
extrapolation  method (s)  adapted  from  Numerical  Recipes  in  C,  2nd  Ed.,  Chapter  16.  Advances 
spin  state  through  externally  specified  time  interval  (JD2K) .  Intermediate  outputs  can  be 
generated  and  written  to  output  files  and/or  stored  in  internal  arrays  as  directed  by  external 
mode  switches.  See  Lparams.h  for  more  info  on  integration  control  &  data  output  choices. 

INPUTS/OUTPUTS/RETURN  VALUE: 

derivs  -  user  supplied  function  that  computes  the  derivatives  (3rd  argument)  of  the  dependent 
variables  (2nd  argument)  at  a  specified  value  of  the  independent  variable  (1st 
argument) 

INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  stdio.h,  math.h,  gsl_vector . h,  FLAG,  _JD2S(),  _S2JD() 

-  Lprot.h  :  bsstepO,  dump_data(),  fcncntRead  ()  ,  fcncntReset  ( )  ,  intgr8_init  ()  ,  lageos_warn  ( ) 

-  Lparams.h  :  _HMIN,  _NVAR,  _TINY 

Lglob.h  :  fp_log,  g_epoch,  g_hmax,  g_maxstp,  g_nout,  g_phimod,  g_psimod,  g_rtol,  g_tcnt 

COMMENTS : 

-  V  1.0  :  functionality  originally  split  between  main()  and  odeint().  Initializations  and 
memory  allocations  were  don  in  main() .  OdeintO  was  adapted  from  Numerical  Recipes  in  C, 

2nd  Edition.,  as  a  generic  driver  for  integration  routines  with  adaptive  stepsize  control, 
modified  only  to  include  outputs  to  data  files. 

-  V  2.0  :  removed  superficial  layer  between  the  old  main()  &  odeint()  and  taylored  the 
generic  odeint()  to  this  application.  Added  an  upper  bound  on  the  allowable  step  size  was 
added  for  consistency  with  assumptions  used  to  derive  the  equations  of  motion;  eliminated 
internal  storage  arrays;  added  output  of  integrator  performance  monitoring. 

-  V  2.4  :  moved  control  parameters  into  global  variables  in  place  of  hard-wired  tdefines; 
added  feature  to  keep  phi  &  psi  bounded  (modulo  values  to  specified  range. 

-  The  integration  method  is  hard-wired  into  the  routine  largely  because  different  integration 
packages  have  different  calling  formats  so  code  modification  needed  required  for  any 
package  changes . 

MODIFICATION  HISTORY: 

9711  Scott  Williams  First  Release 

0210  Scott  Williams  Incremental  tweaks  &  improvements  (see  comments) 

0210  Scott  Williams  Added  variable  length  arrays  (VLAs)  &  targeted  data  output  times 


void  lageos_spin_nr (void  (*derivs) (const  double,  const  double  *,  double  *) , 

void  (*step) (double  *,  const  double  *,  const  int,  double  *,  double, 
const  double,  const  double  *,  double  *,  double  *, 
void  (*derivs) (const  double,  const  double  *,  double  *))) 
//void  lageos_spin_nr (void  (*derivs) (const  double,  const  double  *,  double  *) ) 

{ 


FLAG  f_done=0 ,  f_sing=0; 

char  warnMsg [100 ] ; 

int  i=_NVAR+l,  nout=0; 

long  nphi=l,  npsi=l,  nstp=0,  nmax=0,  nok=0,  nbad=0; 

double  x,  h,  hdid,  hnext,  temp,  dsav,  xsav,  xout,  stop; 
double  y[i],  yscal[i],  dydx[i]; 
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//  retrieve  program  inputs  and  initialize  variables 
intgr8_init (_NVAR,  y,  &h,  &x,  &stop,  &dsav,  Sxsav,  Snout,  Sxout) ; 

fcncntReset () ;  //  reset  Lnrode  derivs  call  counter 

//  output  initial  state 

dump_data (x,  y,  nphi,  npsi,  nstp,  nok,  nbad,  nmax,  fcncntRead ( ) ) ; 
g_tcnt++; 

/* - - - MAIN  INTEGRATION  LOOP - ~ 

Advance  state  from  g_start  to  g_stop,  outputting  intermediate  results 


for  (nstp=l;  nstp<=g_maxstp  SS  !f_done;  nstp++)  { 

//  get  derivatives  of  y  at  x  and  set  scaling  vector  for  error  estimation 
(*derivs) (x,  y,  dydx) ; 

for  (i=l;  i<=_NVAR;  i++)  yscal[i]  =  fabs (y [i] ) +fabs (dydx [i] *h) +_TINY; 

//  prevent  overshoot  of  specific  output  times  and/or  stop  time 
if  (fabs(x+h)  >=  fabs (xout) )  {  h  =  xout  -  x;  f_done  =  1;  } 


//  advance  y  from  x  to  x+hdid  and  bookkeep  the  result  (achieve  h  or  not) 
(*step) (y,  dydx,  _NVAR,  Sx,  h,  g_rtol,  yscal,  Shdid,  Shnext,  derivs) ; 
if  (fabs(hdid)  <  fabs (h) )  {  nbad++;  f_done  =  0;  } 

else  nok++; 


//  modulo  phi  S  psi  to  desired  interval  (multiple 
if  (y [2 ] >g_phimod)  {nphi++;  y[2]  -=  g_phimod; } 

else  if  (y[2]<0)  {nphi — ;  y[2]  +=  g_phimod; } 

if  (y [3] >g_psimod)  {npsi++;  y [ 3 ]  -=  g_psimod; } 

else  if  ( y [ 3 ] <0 )  {npsi — ;  y[3]  +=  g_psimod; } 


of  2pi) 


//  test  if  near  theta  angle  singularities 

f_sing  =  g_save  ?  (y[l]  <  2.91e-4  | |  y [ 1 ]  >  (M_PI  -  2.91e-4))  :  0; 


//  either  at  targeted  output  node  or  the  end 
if  (f_done)  { 

//  outputting  data  now  so  can  reset  other  output  cases 

f_sing  =  0; 

xsav  =  x  +  dsav; 

dump_data (x,  y,  nphi,  npsi,  nstp,  nok,  nbad,  nmax,  nstp  +  f cncntRead ( ) ) ; 
g_tcnt++; 

f_done  -  !(fabs(x)  <  fabs (stop) ) ; 


//  set  xout  to  next  output  time  and  continue  if  not  at  end  of  time  interval 
if  (!f_done)  { 

if  (nout  <  g_nout-l)  { 
nout++; 

xout  =  _JD2S (gsl_vector_get (g_out,  nout)  -  g_epoch) ; 
xout  =  (fabs (xout)  >  fabs (stop) )  ?  stop  :  xout; 


} 


e 

} 


lse 


xout  =  stop; 


//  output  recurrent  data  and/or  if  near  theta  singularity 
if  (f_sing  ||  (fabs(x)  >=  fabs (xsav)))  { 
xsav  =  x  +  dsav; 

dump_data (x,  y,  nphi,  npsi,  nstp,  nok,  nbad,  nmax,  nstp  +  f cncntRead ()) ; 

} 


//  check  for  valid  next  step  size  &  respond  if  too  big  or  too  small 
temp  =  fabs (hnext) ; 

if  (temp  >  fabs (g_hmax) )  {  nmax++;  h  =  g_hmax;  } 

else  if  (temp  <=  fabs (_HMIN*x) )  { 

sprintf (warnMsg, "Stepsize  too  small  in  lageos_spin_nr :  h  =  %12.4e" ,  hnext); 
lageos_warn (fp_log,  g_epoch+_S2 JD (x) ,  warnMsg); 

} 

else  h  =  hnext; 

//  reset  x  to  zero  if  too  big  (smaller  relative  stepsizes  possible  if  stay  near  zero) 
if  (fabs(x)  >  g_reset)  { 

stop  -=  x; 

xsav  -=  x; 

xout  -=  x; 


201 


List  of  References 


g_epoch  +=  _S2JD(x); 
x  —  0 ; 


//  check  if  routine  exceeded  stepsize 

if  (nstp  >=  g_maxstp)  lageos_error ( "Too  many  steps  in  routine  lageos_spin_nr" ) ; 


PROGRAM:  lageos_spin_rk 

Driver  routine  for  the  LAGEOS  satellite  spin  dynamics  model  using  the  DOP853  Runge-Kutta 
numerical  integration  method  of  Hairer  &  Wanner  (see  Ldop853.h  for  more  info) .  Advances 
spin  state  through  externally  specified  time  interval  (JD2K) .  Intermediate  outputs  can  be 
generated  and  written  to  output  files  and/or  stored  in  internal  arrays  as  directed  by  external 
mode  switches.  See  Lparams.h  for  more  info  on  integration  control  &  data  output  choices. 
INPUTS/OUTPUTS/RETURN  VALUE: 

derivs  -  user  supplied  function  that  computes  the  derivatives  (4th  argument)  of  the  dependent 
variables  (3rd  argument)  at  a  specified  value  of  the  independent  variable  (2nd 
argument) ;  the  1st  argument  is  the  dimension  of  the  system 
INCLUDES/EXTERNAL  REFERENCES: 

Lincl.h  :  stdio.h,  math.h,  gsl_vector .h,  FLAG,  _JD2S(),  _S2JD() 

-  Lprot.h  :  dop853(),  dump_data(),  intgr8_init ( ) ,  lageos_warn ( ) ,  maxcntRead ( ) , 

:  naccptRead ( ) ,  nfcnRead ( ) , nre j ctRead ( ) ,  nstepReadO 

-  Lparams.h  :  _HMIN,  _NVAR,  _TINY 

Lglob.h  :  fp_log,  gf_idir,  g_epoch,  g_hmax,  g_maxstp,  g_nout,  g_phimod,  g_psimod,  g_rtol, 

:  g_tcnt 

COMMENTS : 


Skeleton  similar  to  lageos_spin_nr ( )  except  that  the  main  integration  loop  advances  from 
node  to  node  (e.g.,  targeted  outputs)  rather  than  one  basic  integration  step  at  a  time.  This 
makes  for  better  utilization  of  the  internal  efficiencies  of  the  integration  package. 

The  DOP853  integration  package  itself  is  used  virtually  unalterred.  A  thorough  introduction 
and  explanation  of  the  method  is  provided  in  the  header  file  Ldop853.h. 


MODIFICATION  HISTORY: 
0210  Scott  Williams 
0211  Scott  Williams 


First  Release 

Separated  node-to-node  portion  into  evolve_rk()  in  anticipation  of 
migration  to  generic  lageos_spin ( )  with  evolve_xx()  (_rk,  _de,  _nr) 


void  evolve_rk  (FLAG  *f_intgr8,  int  nv,  double  *x,  double  *y,  double  *xnext,  double  h, 

unsigned  long  *nstp,  unsigned  long  *nok,  unsigned  long  *nbad,  unsigned  long  *nmax, 
unsigned  long  *nfcn,  void  (*derivs) (unsigned,  double,  double  *,  double  *) ) ; 

#def ine  STP_MRGN  10 

void  lageos_spin_rk (void  (*derivs) (unsigned,  double,  double  *,  double  *) ) 

{ 


FLAG  f_tst,  f_intgr8; 

int  i=_NVAR+l,  nout=0; 

long  nphi=l,  nphiO  =  0,  npsi=l,  npsiO  =  0; 

unsigned  long  nstp=0,  nok=0,  nbad=0,  nfcn=0,  nmax=0; 
double  x,  absx,  h,  dsav,  xsav,  xout,  xnext,  stop,  phisv,  psisv; 
double  y [ i ] ; 


//  retrieve  program  inputs  and  initialize  variables 
intgr8_init (_NVAR,  y,  &h,  &x,  &stop,  &dsav,  &xsav,  Snout,  Sxout) ; 

//  output  initial  state 

dump_data (x,  y,  nphi,  npsi,  nstp,  nok,  nbad,  nmax,  nfcn) ; 
g_tcnt++; 

/*  - - - MAIN  INTEGRATION  LOOP  — - ' - 

Advance  state  from  g_start  to  g_stop,  outputting  intermediate  results;  local  time  variable 
x  resets  when  |x|  >=  g_reset 

- */ 

for  (;;) 


//  determine  next  output  node 

if  (gf_idir)  xnext  =  GSL_MIN (  g_reset,  GSL_MIN (xsav,  GSL_MIN (xout ,  stop))); 
else  xnext  =  GSL_MAX (-g_reset,  GSL_MAX (xsav,  GSL_MAX (xout ,  stop))); 

/ /  integrate  from  x  to  xnext 

evolve_rk  (&f_intgr8,  _NVAR+1,  &x,  y,  Sxnext,  h,  Snstp, &nok, Snbad, Snmax, &nf cn,  derivs); 
//  modulo  phi  &  psi  to  desired  interval  (multiple  of  2pi) 

phisv  =  y[2];  //  save  original  values  so  can  continue 
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psisv  =  y[3];  //  integration  if  not  also  resetting  x 

if  (fabs(y[2])  >  g_phimod)  { 

nphi  =  nphiO  +  (long)  (y [2 ] /g_phimod) ; 

y[2]  =  fmod(y[2],  g_phimod) ; 

if  (y[2]  <  0)  {  nphi--;  y[2]  +=  g_phimod;  } 

} 

if  (fabs(y[3])  >  g_psimod)  { 

npsi  =  npsiO  +  (long)  (y [3] /g_psimod) ; 

y[3]  =  fmod(y[3]/  g_psimod) ; 

if  (y[3]  <  0)  {  npsi--;  y [ 3 ]  +=  g_psimod;  } 


//  If  done,  output  final  results  and  exit 

absx  =  fabs (x) ; 

if  (absx  >=  fabs (stop))  { 

dump_data (x,  y,  nphi,  npsi,  nstp,  nok,  nbad,  nmax,  nfcn) ; 
g_tcnt++;  //  #  targeted  outputs  on  exit 

g_epoch  +=  _S2JD(x);  //  JD2K  on  exit 

break; 


//  Output  targeted/ recurrent  data  and 
f_tst  =  (absx  >=  fabs (xout) ) ; 
if  (f_tst  | |  (absx  >=  fabs(xsav)))  { 
dump_data (x,  y,  nphi,  npsi,  nstp, 
xsav  =  x  +  dsav; 

if  (fabs (xsav  -  stop)  <  STP_MRGN) 
xsav  =  2*stop; 


set  new  nodes 

//  Targeted  output  node 


nok,  nbad,  nmax,  nfcn) ; 

//  reset  recurrent  output 

//  inhibit  redundent  output  at  end  of 

//  time  interval;  force  xnext  —  stop 


if  (f_tst)  {  //  targeted  output  node  bookkeeping 

g_tcnt++; 
nout++; 

//  get  local  time  of  next  target  node 

if  (nout  <  g_nout)  xout  =  _JD2S (gsl_vector_get (g_out ,  nout)  -  g_epoch) ; 
if  (fabs (xout  -  stop)  <  STP_MRGN)  //  inhibit  redundent  output  at  end  of 
xout  =  2*stop;  //  time  interval;  force  xnext  =  stop 


//  reset  x  to  zero  and  set  remaining  local  time  variables  accordingly 
if  (absx  >=  g_reset)  { 
stop  -=  x; 

xsav  -=  x; 

xout  -=  x; 

g_epoch  +=  _S2JD(x); 

x  —  0 ; 

nphiO  =  nphi; 
npsiO  =  npsi; 

} 

else  { 

y[2]  =  phisv;  //  set  back  to  original  values  to 

y[3]  =  psisv;  //  continue  integration 


//  see  comment  in  lageos_spin_rk  above 

void  evolve_rk  (FLAG  *f_intgr8,  int  nv,  double  *x,  double  *y,  double  *xnext,  double  h, 

unsigned  long  *nstp,  unsigned  long  *nok,  unsigned  long  *nbad,  unsigned  long  *nmax, 
unsigned  long  *nfcn,  void  (*derivs) (unsigned,  double,  double  *,  double  *) ) 

{ 

char  warnMsg [100 ] ; 
double  habs; 

while  ( (gf_idir  &&  *x  <  *xnext)  | |  (!gf_idir  &&  *x  >  *xnext) )  { 

//  take  an  integration  step 

*f_intgr8  =  dop853  (nv,  derivs,  *x,  y,  *xnext,  &g_rtol,  &g_atol,  0,  NULL,  0, 
stdout,  GSL_DBL_EPSILON,  0,  0,  0,  0,  g_hmax,  h,  g_maxstp, 

1,  0,  0,  NULL,  0) ; 


*x  =  xRead(); 
h  =  hRead ( ) ; 

*nstp  +=  nstepReadO; 
*nok  +=  naccptRead () ; 
*nbad  +==  nrejctRead  ()  ; 
*nmax  +=  maxcntRead ( ) ; 


//  gets  value  of  x  on  output 
//  predicted  stepsize  for  next  call 
//  total  number  of  steps  used 
//  number  of  accepted  steps 
//  number  of  rejected  steps 
//  number  of  times  used  max  stepsize 
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*nfcn  +=  nfcnRead();  //  number  of  function  calls 

//  check  for  valid  next  stepsize 
habs  =  fabs (h) ; 

if  (habs  >  fabs (g_hmax) )  h  =  g_hmax; 

else  if  (habs  <=  fabs  (_HMIN*  ( *x)  )  |  |  *f_intgr8  =?==  -3)  { 

sprintf (warnMsg, "Stepsize  too  small  in  lageos_spin_rk :  h  =  %12.4e",  h) ; 
lageos_warn (fp_log,  g_epoch+_S2 JD (*x) ,  warnMsg); 

} 

//  evaluate  integrator  output  flags 
switch  (*f_intgr8) 

{ 

case  -2 :  { 

lageos_warn (fp_log,  g_epoch+_S2 JD (*x)  ,  "Step  count  overflow  in  dop853; 

"resetting  x  to  0  &  retrying  step") ; 

*xnext  =  *x; 
break;  } 
case  -3:  { 

lageos_warn (fp_log,  g_epoch+_S2 JD (*x) ,  "Stepsize  underflow  in  dop853; 

"resetting  x  to  0  &  retrying  step") ; 

*xnext  =  *x; 
break;  } 

case  -1:  lageos_error  ("Invalid/inconsistent  inputs  to  dop853()");  break; 
case  -4:  lageos_error  ("ODE  may  be  'stiff'  -  dop853()  unsuitable  for  this 
"type  of  problem") ;  break; 

default : 


PROGRAM:  lageos_spin_de 

Driver  routine  for  the  LAGEOS  satellite  spin  dynamics  model  using  the  variable  order, 
variable  step  Adams  Bashforth  Moulton  PECE  (Predictor-Estimator-Corrector-Estimator)  multi- 
step  method  of  Shampine  (see  Lshode.f  for  more  info).  Advances  spin  state  through  externally 
specified  time  interval  (JD2K) .  Intermediate  outputs  can  be  generated  and  written  to  output 
files  and/or  stored  in  internal  arrays  as  directed  by  external  mode  switches.  See  Lparams.h 
for  more  info  on  integration  control  &  data  output  choices. 

INPUTS/OUTPUTS/RETURN  VALUE: 

f  -  user  supplied  function  that  computes  the  derivatives  (3rd  argument)  of  the  dependent 

variables  (2nd  argument)  at  a  specified  value  of  the  independent  variable  (1st  argument) 
INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  stdio.h,  math.h,  g2c.h,  gsl_vector . h,  FLAG,  _JD2S(),  _S2JD() 

-  Lprot.h  :  ode(),  dump_data(),  intgr8_init ( ) ,  lageos_warn ( ) 

-  Lparams.h  :  _NVAR 

Lglob.h  :  fp_log,  g_atol,  gf_idir,  g_epoch,  g_nout,  g_phimod,  g_psimod,  g_rtol,  g_tcnt 
COMMENTS : 

1)  Skeleton  nearly  identical  to  lageos_spin_rk ( ) .  Major  difference  is  the  employment  of  f2c 
style  declarations  to  ensure  compatibility  with  the  integration  routine  which  is  fortran 
source  code.  The  ode  subroutine  must  be  linked  with  the  libraries  -lg2c  -lm 

2)  de_  relies  on  historical  data  points  and  so  must  be  re-initialized  if  there  are  any 
changes  to  the  underlying  variables.  The  routine  loses  can  become  both  inefficient  and 
unreliable  if  the  re-initialization  occurs  too  frequently. 

In  this  code,  phi  &  psi  are  modulo 'ed  for  output  purposes  but  then  returned  to  their 
original  values  before  the  next  iteration  of  the  integrator.  However,  when  x  exceeds  the 
reset  interval,  all  the  variables  (including  phi  &  psi)  are  reset  and  so,  too,  is  the 
integrator . 

***  It  is  therefore  recommended  that  de_  not  be  used  with  small  reset  interval  values  ** 
MODIFICATION  HISTORY: 

0210  Scott  Williams  First  Release 


void  lageos_spin_de (U_fp  f  (const  doublereal  *x,  const  doublereal  *y,  doublereal*yp) ) 
{ 


FLAG  f_tst; 

integer  f_deout=l,  neqn=_NVAR,  iwork[5],  kstp,  kfcn; 

char  warnMsg [100 ] ; 

int  nout=0; 

long  nphi=l,  npsi=l,  nphiO  =  0,  npsiO  =  0; 

unsigned  long  nstp=0,  nok=0,  nbad=0,  nfcn=0,  nmax=0; 
double  absx,  dsav,  xsav,  xout,  stop,  phisv,  psisv; 

doublereal  x,  xnext; 

doublereal  y[_NVAR+l],  work[100+21* (_NVAR+1) ] ; 

//  retrieve  program  inputs  and  initialize  variables 

intgr8_init (_NVAR,  y,  Sxnext,  &x,  &stop,  &dsav,  &xsav.  Snout,  Sxout) ; 
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//  output  initial  state 

dump_data (x,  y,  nphi,  npsi,  nstp,  nok,  nbad,  nmax,  nfcn) ; 
g_tcnt++; 

/*  ~~~ - ~~ - ~ - MAIN  INTEGRATION  LOOP  - ~ — - - - ~ 

Advance  state  from  g_start  to  g_stop,  outputting  intermediate  results;  local  time  variable 
x  resets  when  |x|  >—  g_reset 


for  (;;) 


//  determine  next  output  node 

if  (gf_idir)  xnext  =  GSL_MIN (  g_reset,  GSL_MIN (xsav,  GSL_MIN (xout ,  stop))); 
else  xnext  =  GSL_MAX (-g_reset,  GSL_MAX (xsav,  GSL_MAX (xout ,  stop))); 

//while  (fabs(x)  <  fabs (xnext) )  { 

while  ( (gf_idir  &&  x  <  xnext)  | |  (!gf_idir  &&  x  >  xnext))  { 

ode ( (U_fp)  f,  &neqn,  &y[l],  &x,  Sxnext,  (doublereal  *)  &g_rtol, 

(doublereal  *)  &g_atol,  &f_deout,  work,  iwork,  &kstp,  &kfcn) ; 
nstp  +=  kstp;  //  total  number  of  steps  used 

nfcn  +=  kfcn;  //  number  of  function  calls 

switch  (f_deout) 

{ 

//  error  tolerances  too  small 
case  -3: 
case  3:  { 

sprintf (warnMsg, "ode  increased  error  tolerances:  g_rtol  =  %.2e  &  g_atol 
"  =  %.2e",  g_rtol,  g_atol) ; 
lageos_warn (fp_log,  g_epoch+_S2 JD (x) ,  warnMsg); 
break;  } 
case  -5: 
case  5:  { 

lageos_warn (fp_log,  g_epoch+_S2 JD (x) ,  "ode  reports  system  may  be  stiff; 
"use  alternate  method  if  warning  persists") ; 

break;  } 
case  -6: 

case  6:  lageos_error  ("Invalid/ inconsistent  inputs  to  ode_()");  break; 
default : 


//  modulo  phi  &  psi  to  desired  interval  (multiple  of  2pi) 

phisv  =  y[2];  //  save  original  values  so  can  continue 

psisv  =  y [ 3 ] ;  //  integration  if  not  also  resetting  x 

if  (fabs (y [2])  >  g_phimod)  { 

nphi  =  nphiO  +  (long)  (y [2 ] /g_phimod) ; 

y[2]  =  fmod(y[2],  g_phimod) ; 

if  (y[2]  <  0)  {  nphi--;  y [ 2 ]  +=  g_phimod;  } 

} 

if  (fabs(y[3])  >  g_psimod)  { 

npsi  =  npsiO  +  (long)  (y [3] /g_psimod) ; 

y[3]  =  fmod(y[3],  g_psimod) ; 

if  (y[3]  <  0)  {  npsi--;  y [ 3 ]  +=  g_psimod;  } 

} 

//  If  done,  output  final  results  and  exit 

absx  =  fabs (x) ; 

if  (absx  >=  fabs (stop))  { 

dump_data (x,  y,  nphi,  npsi,  nstp,  nok,  nbad,  nmax,  nfcn); 
g_tcnt++;  //  #  targeted  outputs  on  exit 

g_epoch  +=  _S2JD(x);  //  JD2K  on  exit 

break; 

} 


//  Output  targeted/ recurrent  data  and 
f_tst  =  (absx  >=  fabs  (xout) ) ; 
if  (f_tst  | |  (absx  >=  fabs (xsav)))  { 
dump_data (x,  y,  nphi,  npsi,  nstp, 
xsav  =  x  +  dsav; 

if  (fabs (xsav  -  stop)  <  STP_MRGN) 
xsav  =  2*stop; 


set  new  nodes 

//  Targeted  output  node 


nok,  nbad,  nmax,  nfcn) ; 

//  reset  recurrent  output 

//  inhibit  redundent  output  at  end  of 

//  time  interval;  force  xnext  =  stop 


if  ( f _ t st )  { 

g_tcnt++; 


//  targeted  output  node  bookkeeping 
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nout++; 

//  get  local  time  of  next  target  node 

if  (nout  <  g_nout)  xout  =  _JD2S (gsl_vector_get (g_out ,  nout)  -  g_epoch) ; 
if  (fabs(xout  -  stop)  <  STP_MRGN)  //  inhibit  redundent  output  at  end  of 
xout  =  2*stop;  //  time  interval;  force  xnext  =  stop 


//  reset  x  to  zero  and  set  remaining  local  time  variables  accordingly 
if  (absx  >=  g_reset)  { 


stop 

-=  x; 

xsav 

-  x; 

xout 

-=  x; 

g  epoch 

+=  _S2JD(x)  ; 

x  —  0 ; 

nphiO  - 

nphi; 

npsiO  - 

npsi; 

f  deout 

=  1; 

// 

re-initialize  ode 

J  { 

y[2]  = 

phisv; 

// 

set  back  to  original  values  to 

y  [3]  = 

psisv; 

// 

continue  integration 

//* 


LIO.C 


♦include 

♦include 


"Lincl . h" 
"Lextern . h" 


PROGRAM:  banner 

Facilitates  repeated  character  and  border  printing 
INPUTS/OUTPUTS/RETURN  VALUE: 

f_nl  =  endline  flag:  0  =  don't  append  ' \n ' ;  1  =  append  ' \n' 

Format:  repeat  cleft (char)  lleft(^)  times;  pad  with  lpad(^)  white  spaces;  repeat  cmid(char) 
lmid(^)  times;  pad  with  rpad(^)  white  spaces;  repeat  cright (char)  lright(^)  times 
INCLUDES /EXTERNAL  REFERENCES: 

Lincl. h  :  stdio.h,  FLAG 


void  banner (FILE  *fptr,  FLAG  f_nl,  char  cleft,  char  cmid,  char  cright,  int  lleft, 
int  lpad,  int  lmid,  int  rpad,  int  lright) 


int  i; 

for  (i=0;  iclleft;  i++) 
if  (lpad) 

for  (i=0;  i<lmid;  i++) 
if  (rpad) 

for  (i=0;  i<lright;  i++) 
if  (f_nl) 


fprintf ( fptr ,  "%c", 
fprintf ( fptr ,  "%*c", 
fprintf ( fptr ,  "%c", 
fprintf ( fptr ,  "%*c", 
fprintf ( fptr ,  "%c", 
fprintf (fptr, "\n") ; 


cleft) ; 
lpad,  '  ' )  ; 
cmid)  ; 
rpad,  '  ' )  ; 
cright)  ; 


PROGRAM :  dump_data 

Prints  data  to  output  files  and  to  screen;  uses  global  storage  arrays  to  pre-process  data  s 
the  results  may  be  retained  if  desired  (see  Lparams.h  targeted  output  information) 
INPUTS/OUTPUTS/RETURN  VALUE: 

x  -  independent  variable  (time  in  seconds) 

y  -  unit  offset  (range  [l..._NVAR]  vector  of  dependent  variables  (Euler  angles  Theta, 

Phi,  and  Psi  in  radians  &  their  respective  rates)  at  time  x 
nphi,  npsi  -  number  of  times  modulo  of  phi  (psi)  taken 

nstp,  nok,  nbad,  nmax  -  number  of  integration  steps  (total,  good,  bad,  max)  where  good  = 
achieved  suggested  step;  bad  =  didn't;  max  =  took  maximum  allowed  step  (g_hmax) 
nfcn  -  number  of  function  calls  used 
INCLUDES/EXTERNAL  REFERENCES: 

Lincl. h  :  stdio.h,  math.h,  gsl_blas.h,  gsl_matrix . h,  gsl_vector . h,  _S2JD(),  M_2PI,  M_DPR, 
-  Lprot.h  :  dump_log(),  euler_rot(),  file_ops(),  sat_posn(),  sincosO 

Lextern. h  :  fp_euler,  fp_angvel,  fp_angmom,  fp_log,  fp_orbit,  g_epoch,  g_euler,  g_Il,  g_I3, 
:  g_L,  g_orb,  g_orbp,  g_tcnt,  g_w 
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COMMENTS: 


-  Print  formats  for  primary  variables  chosen  to  yield  0.1  sec  (time),  1  arcsec  (angle),  and, 
for  rates  on  order  of  unity  or  less,  at  least  1  arcsec/s.  Other  value  formats  vary 

-  Euler  angles  represent  the  rotational  transformation  from  the  inertial  frame  (ECI)  to  the 
body  frame.  The  sequence  is:  rotate  phi  about  ECI  z;  rotate  theta  about  resulting 
intermediate  x;  rotate  psi  about  body  z. 

-  For  any  right  handed  cartesian  coordinate  system.  Longitude  (Ion)  and  Latitude  (lat)  are 
spherical  angles  with  Ion  the  counterclockwise  angle  in  the  xy  plane  from  the  x-axis  and 
lat  the  'vertical'  angle  measured  from  the  xy  plane.  Co-Latitude  (CoLat)  is  the  90 
degree  compliment  of  lat  (90-lat) ;  it  is  the  vertical  angle  measured  from  the  z  axis 

-  Right  Ascension  (ra)  &  Declination  (dec)  are  the  respective  Longitude  and  Co-Latitude 
referenced  SPECIFICALLY  to  the  ECI  coordinate  system 

-  Axial  &  transverse  are  the  respective  polar  axis  and  equatorial  plane  vector  components 


MODIFICATION  HISTORY: 
9711  Scott  Williams 
0109  Scott  Williams 
0210  Scott  Williams 
0210  Scott  Williams 


First  Release 

Modified  output  data  &  formats 

Extensive  formatting  and  file  content  changes 

Added  internal  array  storage  for  target  data  sets  and  reworked 
derivations  to  incorporate  GSL  constructs 


void  dump_data (const  double  x,  const  double  *y,  const  long  nphi,  const  long  npsi, 

const  unsigned  long  nstp,  const  unsigned  long  nok,  const  unsigned  long  nbad, 
const  unsigned  long  nmax,  const  unsigned  long  nfcn) 


static  unsigned  long  num=l; 
double  jd2k,  duml; 

double  sc_th[2],  sc_phi[2],  sc_psi[2]; 
struct  euler_data  *eptr  =  &g_euler [g_tcnt ] ; 

struct  spin_data  *Lptr  =  &g_L [g_tcnt ] ,  *wptr  =  &g_w [g_tcnt ] ; 


gsl 

matrix 

* 

T 

b2e 

=  gsl 

matrix 

alloc  (3, 

3 

gsl 

matrix 

* 

T 

e2o 

=  gsl 

matrix 

alloc (3, 

3 

gsl 

vector 

* 

V 

wb 

=  gsl 

P 

o 

-P 

o 

(L) 

> 

alloc (3) 

; 

gsl 

_vector 

* 

V 

we 

=  gsl 

p 

o 

■p 

o 

0 

> 

alloc (3) 

; 

gsl 

vector 

* 

V 

wo 

=  gsl 

p 

o 

-p 

o 

0 

> 

alloc (3) 

; 

gsl 

vector 

* 

V 

’Lb 

=  gsl 

p 

o 

-p 

o 

(L) 

> 

alloc (3) 

; 

gsl 

vector 

* 

V 

Le 

=  gsl 

P 

o 

-p 

o 

0 

> 

alloc (3) 

; 

gsl 

vector 

* 

V 

Lo 

-  gsl 

p 

o 

-p 

o 

0 

> 

alloc (3) 

; 

//  convert  time  to  JD2K  format 
jd2k  =  g_epoch  +  _S2JD(x); 

//  Print  header  lines  on  first  call  to  routine  and  runtime/ screen  banners  periodically 
if  (fabs ( jd2k-g_start)  <  le-10)  num  =1;  //  reset  for  iterative  calls 

if  (num  %  300  ==  0)  dump_log ( stdout ,  0,  NULL,  NULL,  NULL,  NULL,  NULL,  NULL,  NULL); 
if  (num  %  75  ==  0)  dump_log ( stdout ,  1,  NULL,  NULL,  NULL,  NULL,  NULL,  NULL,  NULL) ; 

/*  - ~  Output  Log  File  Data  - - 

dump_log ( fp_log,  2,  &jd2k,  &num,  &nstp,  &nok,  &nbad,  &nmax,  Snfcn) ; 
num++ ; 


/*  - - - - - - - - Output  Euler  Angles - - - - - - - ~ - - 

columns:  |  time  |  theta  |  phi  |  psi  |  nphi  |  npsi  |  thetad  |  phid  |  psid  |  ra  |  dec  | 
units:  I  JD  |  .  .  .  deg  .  .  .  |  .  .  N/A  ..[...  deg/s  .  .  .  |  .  .  deg  .  .  | 

nphi  &  npsi  are  modulo  interval  'revs';  ra  &  dec  locate  the  body  axis  in  ECI  space 


eptr->jd2k  =  jd2k; 
eptr->th  =  y [ 1  ]  ; 
eptr->ph  =  y[2]  ; 
eptr->nph  =  nphi; 
eptr->ps  =  y[3]; 
eptr->nps  =  npsi; 
eptr->thd  =  y[4]  ; 
eptr->phd  =  y[5]; 
eptr->psd  =  y [ 6 ]  ; 

eptr->ra  -  fmod (y [2] ,M_2PI) -M_PI_2; 
eptr->dec  -  M_PI_2  -  y[l]; 

fprintf (fp_euler,  "%13.6f  ||%11.4f  |%11.4f  |%11.4f  ||%101d  |%101d  ||%14.4e  |%14.4e 
"|%14.4e  |  | % 1 0 . 3  f  |%10.3f\n",  eptr->jd2k,  eptr->th*M_DPR,  eptr->ph*M_DPR, 
eptr->ps*M_DPR,  eptr->nph,  eptr->nps,  eptr->thd*M_DPR,  eptr->phd*M_DPR, 
eptr->psd*M_DPR,  eptr->ra*M_DPR,  eptr->dec*M_DPR) ; 
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/*  -  Output  Orbit  Parameters  - 

columns :  |  time  |  radius  |  RAAN  |  Mw  |  Mw  revs  |  M  |  E  |  w  | 

units:  I  JD  |  km  |  .  .  .  deg  .  .  .  |  #  |  .  deg  .  | 

w  &  M  omitted  b/c  not  included  in  current  orbit  model;  Mw  is  net  angular  position  M+w 

- */ 

//  compute  orbit  parameters 
sat_postn ( j d2k,  &g_orb); 

fprintf (fp_orbit,  "%13.6f  ||%11.3f  |%11.4f  ||%11.4f  | %91d  ||%9.3f  |%9.3f  |%9.3f\n", 

jd2k,  1 . 0e-5*g_orb . r,  g_orb . W*M_DPR,  g_orb . Mw*M_DPR,  g_orb.rev,  g_orb .M*M_DPR, 
g_orb .E*M_DPR,  g_orb . w*M_DPR) ; 


/* - - — - ~~  Output  Body  Frame  Angular  Velocity  ("Spin  Vector")  Parameters  - - - - - 

columns:  |  time  |  w  |  axial/w  |  trans/w  |  Ion  |  lat  |  +  .  .  . 

units:  I  JD  |  deg/s  |  (dimensionless)  I  .  .  deg  .  .  | 

w  is  the  scalar  magnitude;  axial/ trans  are  normalized  body  frame  components  along/normal  to 
satellite  body  axis;  Ion/ lat  locate  the  spin  vector  in  the  body  frame 

- */ 

//  compute  sine  &  cosine  of  Euler  Angles  &  body  to  ECI  transformation  matrix 
euler_rot(0,  y[l],  y[2],  y[3] ,  sc_th,  sc_phi,  sc_psi,  4,  T_b2e,  NULL) ; 

//  compute  body  frame  angular  velocity  ("spin  vector")  and  angular  momentum 
duml  =  y [5] *sc_th [0] ; 

gsl_vector_set  (v_wb,  0,  duml*sc_psi [ 0]  +  y [4 ] *sc_psi [1 ] ) ; 
gsl_vector_set  (v_wb,  1,  duml*sc_psi [1]  -  y [4 ] *sc_psi [0 ] ) ; 
gsl_vector_set  (v_wb,  2,  y [ 5] *sc_th [1 ]  +  y [ 6 ] ) ; 
wptr->jd2k  =  jd2k; 

wptr->Blon  =  atan2 (gsl_vector_get (v_wb,  1),  gsl_vector_get (v_wb,  0) ) ; 

Lptr->Blon  =  wptr->Blon;  //  body  angular  momentum  has  same  longitude 

wptr->mag  =  gsl_blas_dnrm2 (v_wb) ; 

wptr->ax  =  gsl_vector_get (v_wb,  2 ) / (wptr->mag) ; 

wptr->Blat  =  asin (wptr->ax)  ; 

wptr->tr  =  cos (wptr->Blat)  ; 

fprintf (fp_angvel,  "%13.6f  ||%16.6e  |%16.6e  |%16.6e  |  | % 1 1 . 4  f  | % 1 1 . 4  f 

jd2k,  wptr->mag*M_DPR,  wptr->ax,  wptr->tr,  wptr->Blon*M_DPR,  wptr->Blat*M_DPR) ; 


/*  -  Output  Right  Ascension/Declination  &  Orbit  Frame  Longitude/Latitude  of  spin  vector  - - 

columns:  +  .  .  . |  ra  (deg)  |  dec  (deg)  |  Ion  (deg)  |  lat  (deg)  | 

- */ 

//  transform  spin  vector  to  eci  frame 

gsl_blas_dgemv  (CblasTrans,  1.0,  T_b2e,  v_wb,  0.0,  v_we) ; 
wptr->ra  =  atan2 (gsl_vector_get (v_we,  1),  gsl_vector_get (v_we,  0)); 
wptr->dec  =  asin (gsl_vector_get (v_we,  2) / (wptr->mag) ) ; 

//  compute  transformation  matrix  from  ECI  to  orbit  centered  frame 

euler_rot(3,  g_orbp.i,  g_orb.W,  g_orb.w,  g_orb.sci,  g_orb.scW,  g_orb.scw,  14,  T_e2o,  NULL); 
//  transform  spin  vector  to  orbit  frame 

gsl_blas_dgemv  (CblasNoTrans,  1.0,  T_e2o,  v_we,  0.0,  v_wo) ; 
wptr->01on  =  atan2 (gsl_vector_get (v_wo,  1),  gsl_vector_get (v_wo,  0)); 
wptr->01at  =  asin (gsl_vector_get (v_wo,  2) / (wptr->mag) ) ; 

fprintf (fp_angvel,  "|%10.3f  |%10.3f  ||%10.3f  |%10.3f\n",  wptr->ra*M_DPR,  wptr->dec*M_DPR, 
wptr->01on*M_DPR,  wptr->01at*M_DPR) ; 


/* - - - ~  Output  Body  Frame  Angular  Momentum  Parameters - 

columns:  |  time  |  L  I  axial/L  |  trans/L  |  Ion  |  lat  |  +  .  .  . 

units:  |  JD  |  (g  cmA2)/s  |  (dimensionless)  |  .  .  deg  .  .  | 

parameters  identically  analagous  to  those  for  angular  velocity 

- */ 

//  compute  body  frame  angular  momentum 

gsl_vector_set  (v_Lb,  0,  g_Il*gsl_vector_get (v_wb,  0) ) ; 
gsl_vector_set  (v_Lb,  1,  g_Il*gsl_vector_get (v_wb,  1)); 
gsl_vector_set  (v_Lb,  2,  g_I3*gsl_vector_get (v_wb,  2) ) ; 

Lptr->mag  =  gsl_blas_dnrm2 (v_Lb) ; 

Lptr->ax  —  gsl_vector_get (v_Lb,  2 ) / (Lptr->mag) ; 

Lptr->Blat  =  asin (Lptr->ax) ; 

Lptr->tr  =  cos(Lptr->Blat); 

fprintf (fp_angmom,  "%13.6f  |  | % 1 6 . 6e  |%16.6e  |%16.6e  |  | % 1 1 . 4 f  | % 1 1 . 4 f  |", 

j  d2k,  Lptr->mag,  Lptr->ax,  Lptr->tr,  Lptr->Blon*M_DPR,  Lptr->Blat*M_DPR) ; 
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/*  - ~~  Output  RA/Dec  &  Orbit  Frame  Lon/Lat  of  angular  momentum  vector  - - 

columns:  +  .  .  . |  ra  (deg)  |  dec  (deg)  |  Ion  (deg)  |  lat  (deg)  | 


//  transform  angular  momentum  vector  to  eci  frame 
gsl_blas_dgemv  (CblasTrans,  1.0,  T_b2e,  v_Lb,  0.0,  v_Le) ; 

Lptr->ra  =  atan2 (gsl_vector_get (v_Le,  1),  gsl_vector_get (v_Le,  0)); 
Lptr->dec  =  asin (gsl_vector_get (v_Le,  2) / (Lptr->mag) ) ; 


//  transform  spin  vector  to  orbit  frame 

gsl_blas_dgemv  (CblasNoTrans,  1.0,  T_e2o,  v_Le,  0.0,  v_Lo) ; 

Lptr->01on  =  atan2 (gsl_vector_get (v_Lo,  1),  gsl_vector_get (v_Lo,  0)); 

Lptr->01at  =  asin (gsl_vector_get (v_Lo,  2 ) / (Lptr->mag) ) ; 

fprintf (fp_angmom,  "|%10.3f  | % 1 0 . 3 f  |  | % 1 0 . 3 f  |%10.3f\n",  Lptr->ra*M_DPR,  Lptr->dec*M_DPR, 
Lptr->01on*M_DPR,  Lptr->01at*M_DPR) ; 


gsl_matrix_f ree 
gsl_matrix_f ree 
gsl_vector_free 
gsl_vector_free 
gsl_vector_free 
gsl_vector_free 
gsl_vector_free 
gsl_vector_free 


( T_b2  e ) 
(T_e2o) 
(v_wb)  ; 
(v_we) ; 
(v_wo) ; 
(v_Lb)  ; 
( v_Le ) ; 
(v_Lo)  ; 


file_ops(l);  //  flush  file  pointers 

} 


PROGRAM:  dump_headers 

Writes  header  lines  to  output  files  and  screen 
INPUTS/OUTPUTS/RETURN  VALUE:  none 
INCLUDES /EXTERNAL  REFERENCES: 


Lincl.h  :  stdio.h 
-  Lprot.h  :  banner (),  dump_log() 
Lextern.h  :  fp_euler,  fp_angvel. 


fp_angmom,  fp_log,  fp_orbit 


void  dump_headers (void) 

{ 

int  nc; 


dump_log ( fp_log,  1,  NULL,  NULL,  NULL,  NULL,  NULL,  NULL,  NULL); 

fprintf (fp_euler, "  time  I |  theta  |  phi  I  psi  I |  phi  mod#  | 


" 

psi  mod#  | | 

thetad  I 

phid  | 

psid 

RA  |  " 

" 

Dec%n\n 

JD2K 

deg 

1  deg 

deg 

1  1 

" 

1  1 

deg/s  1 

deg/s  1 

deg/s 

1 

deg  |  " 

" 

deg\n" ,  &nc) 

; 

banner ( fp 

euler,  1,  ' = ' , 

0,  0, 

nc+4,  0, 

0,  0, 

0) ; 

fprintf (fp 

angvel, " 

time 

1  1 

| AngVel |  I 

axial 

" 

" 

transverse 

1  1  : 

Body  Long 

|  Body  Lat  | | 

RA 

Dec  I  |  " 

" 

OCI  Long  |  OCI  Lat 

%n\n 

JD2K 

1 

deg/s 

(normalized)  | " 

" 

(normalized) 

1  1 

deg 

1 

deg  |  | 

deg 

deg  |  |  " 

" 

deg  | 

deg\n 

" ,  &nc) ; 

banner ( fp 

angvel,  1,  '=', 

0,  0 

,  nc+2,  0, 

-  0,  0, 

.  0)  ; 

fprintf (fp 

angmom, " 

time 

1  1 

| AngMom |  | 

axial 

" 

" 

transverse 

1  1  : 

Body  Long 

|  Body  Lat  | | 

RA 

Dec  I  |  " 

" 

OCI  Long  |  OCI  Lat 

%n\n 

JD2K 

1  1  (g 

cmA2 ) / s 

(normalized)  |  " 

" 

(normalized) 

1  1 

deg 

1 

deg  1 

deg 

deg  |  |  " 

" 

deg 

deg\n 

" ,  &nc) ; 

banner ( fp 

angmom,  1 ,  ' = ' , 

0,  0 

,  nc+2,  0, 

-  0,  0, 

.  0)  ; 

fprintf (fp 

orbit, "  time 

| |  radius 

RAAN 

1  1 

M  +  w 

|  M+w  Rev#  | | " 

" 

M  | 

E 

|  w 

%n\n 

JD2K 

1  1 

km 

1  deg  | | 

" 

deg  | 

1  1  deg  | 

deg 

deg 

\n", 

&nc)  ; 

banner ( fp 

orbit,  1,  '=', 

0,  0, 

nc+1,  0, 

0,  0, 

0)  ; 

PRO  GRAM :  dump_ log 

Writes  program  status  data  and  data  run  information  to  the  log  output  file  and  to  the  screen 
INPUTS/OUTPUTS/RETURN  VALUE: 

fptr  -  pointer  to  output  stream 

f_mode  -  mode  flag:  0  =  Runtime  header,  1  =  column  header,  2  =  data  line 

jd2k  -  time  (JD2K) 

num  -  data  line  number 

nstp,  nok,  nbad,  nmax,  nfcn  -  see  dump_data()  comments 
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INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  stdio.h,  stdlib.h,  string. h,  time.h,  gsl_vector . h,  FLAG,  M_DPR 

-  Lprot.h  :  banner (),  elapsed_time ( ) ,  expcatO 

Lextern.h  :  gf_driver,  gf_grav,  gf_mag,  gf_mf req,  g_atol,  g_c,  g_clatm,  g_desc, 

:  g_gm,  g_hmax,  g_Il,  g_I3,  g_insrc,  g_J2,  g_lonm,  g_magscl,  g_magshl, 

:  g_mdm,  g_oblcore,  g_orbp,  g_re,  g_reset,  g_rcore,  g_rtol, 

:  g_sigcore,  g_start,  g_stateO,  g_title 

COMMENTS: 

-  All  outputs  are  directed  to  stdout  (screen)  in  addition  to  the  output  file  designated  by 
fptr.  For  screen  output  only,  call  with  stdout  as  the  file  pointer  argument 

-  Automatically  updates  timekeeping  line  in  output  file  on  each  data  line  call 
MODIFICATION  HISTORY: 

0210  Scott  Williams  First  Release 


void  dump_log (FILE  *fptr,  const  FLAG  f_mode,  const  double  *jd2k,  const  unsigned  long  *num 
const  unsigned  long  *nstp,  const  unsigned  long  *nok,  const  unsigned  long  *nbad, 
const  unsigned  long  *nmax,  const  unsigned  long  *nfcn) 


FILE 
t ime_t 
static  FLAG 
static  char 
static  int 
static  long 
static  double 


*fout ; 
now; 

f_lst=l; 

*nowstr,  start [30],  *drvstr; 
len,  padl,  padr,  width  =  105; 
cltime,  savepos,  currpos; 
s; 


fout  =  fptr; 

time ( Snow) ; 

nowstr  =  ctime(Snow); 

if  ( f _ 1 st )  { 

f _ 1 st  =  0; 

strcpy (start, nowstr) ; 
len  =  strlen (g_title) ; 
padr  =  (width  -  len)/2; 
padl  -  (2*padr+len==width) 

} 


//  do  this  stuff  once 

//  save  start  time 

//  compute  variable  format  lengths 


?  padr  :  padr+1; 


// 


switch  (f_mode)  { 

*********************************  print  RUNTIME  HEADER  ******* 
case  0:  { 

int  nc,  nc2,  exl,  ex2,  ex3,  ex4; 
double  bsl,  bs2,  bs3,  bs4; 

if  (!f_lst)  banner (stdout,  1,  '=',  0,  0,  width,  0,  0,  0, 
for  ( ; ; )  { 

//  Print  program  title  &  wersion  number 
banner (fout,  1,  0,  0,  width,  0,  0,  0,  0); 

fprintf (fout,  "%-*c%s%*c\n" ,  padr,  '*',  g_title,  padl 
banner (fout,  1,  0,  1,  width-2,  0,  0,  1); 


0); 


//  Print  date/time/duration  line  and  save  pointer  to  it's  location 
if  (fout  !=  stdout)  savepos  =  ftell(fout); 

fprintf (fout, "*  Date:  %.2s  %.3s  %.4s  Start  Time:  %.8s  Stop  Time:  %. 

"  Total  Time:  %31d:%04.1f  *\n",  start+8,  start+4,  start+20 

start+11,  nowstr+11,  cltime,  s) ; 
banner (fout,  1,  1,  1,  width-4,  1,  1); 


//  Print  run  description  info 

fprintf (fout, "*  Run  Description  %n>  ",  &nc2); 

if  (*g_desc)  { 

fprintf (fout, "%s%n" ,  g_desc,  &nc) ; 

fprintf (fout, "%*s\n%-*s>  ",  width- (nc+nc2+2 ) ,  "*",  nc2,  "*"); 

} 

fprintf (fout, "Input  Source  =  %s%n",  g_insrc,  &nc) ; 
fprintf (fout, "%*s\n",  width- (nc+nc2+2 ) ,  "*"); 

//  Print  integrator  control  parameters 
switch  (gf_driver)  { 

case  1:  drvstr  =  "_nr  (Bader-Deuf lhard  extrapolation  method)";  break; 

case  2:  drvstr  =  "_rk  (order  8(5,3)  Runge-Kutta  method)";  break; 

case  3:  drvstr  =  "_de  (variable  order/variable  step  Adams  PECE  method";  break 

default:  drvstr  =  "_nr  (Bulirsch-Stoer  extrapolation  method)";  break; 

} 

fprintf (fout, "*  Integrator  Ctrl  >  Driver  =  lageos_spin%s%n" ,  drvstr,  &nc) ; 
fprintf (fout, "%*s\n" ,  width-nc,  "*"); 
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bsl  =  expcat (g_rtol,  &exl); 
bs2  =  expcat (g_atol,  &ex2); 

fprintf  (tout,  "%-*s>  RTOL  =  %.2fe%+d;  ATOL  =  %.2fe%+d%n",  nc2, 
bsl,  exl,  bs2,  ex2,  &nc) ; 
fprintf (fout, "%*s\n",  width-nc,  "*"); 
bsl  =  expcat (g_reset,  &exl); 

fprintf (fout, "%-*s>  MaxStepSize  =  %.lfs;  MaxInternalTimeValue  =%5 . 2fe%+d%n" , 
nc2,  "*",  g_hmax,  bsl,  exl,  &nc) ; 
fprintf (fout, "%*s\n",  width-nc,  "*"); 

//  Print  physical  constant  values 

bsl  =  expcat (g_c,  &exl) ; 

bs2  =  expcat (g_re,  &ex2); 

bs3  =  expcat (g_gm,  &ex3) ; 

bs4  =  expcat (g_J2,  &ex4); 

fprintf (fout, "*  Physical  Const  >  C  =  %.8fe%+d;  RE  —  %.7fe%+d;  GM  —  %.9fe%+d; 

"J2  =  % . 7f e%+d%n" ,  bsl,  exl,  bs2,  ex2,  bs3,  ex3,  bs4,  ex4,  &nc) ; 
fprintf (fout, "%*s\n",  width-nc, 

//  Print  earth  model  parameters 
if  ( ! gf_grav) 

fprintf (fout, "*  Earth  Models  >  Gravity  gradient  does  not  include  " 

"nonspherical  geopotential  terms%n",  &nc) ; 

else 

fprintf (fout, "*  Earth  Models  >  Gravity  gradient  includes  1st  nonspherical 

"geopotential  term  (J2)%n",  &nc) ; 
fprintf (fout, "%*s\n",  width-nc, 
if  (gf_mag  ==  0)  { 

fprintf (fout, "%-*s>  Magnetic  field  generated  using  static  dipole  with  " 
"following  parameters : %n" ,  nc2,  ,  &nc) ; 
fprintf (fout, "%*s\n",  width-nc,  "*"); 

fprintf (fout, "%-*s>  Dipole  Moment  =  %.7e;  Location  =  %.4f  Ion,  %.4f  co-lat%n", 
nc2,  "*",  g_mdm,  M_DPR*g_lonm,  M_DPR*g_clatm,  &nc)  ; 

} 

else  if  (gf_mag  <=  10)  { 

fprintf (fout, "%-*s>  Magnetic  field  generated  using  IGRF2000  spherical  " 
"harmonic  terms  up  to  order  %d%n",  nc2,  "*",  gf_mag,  &nc) ; 

}  else  { 

fprintf (fout, "%-*s>  Magnetic  field  generated  using  static  dipole  fixed  at  " 
"IGRF2000  %4d  epoch  location%n",  nc2,  "*",  gf_mag,  &nc) ; 

} 

fprintf (fout, "%*s\n" ,  width-nc,  "*"); 

/ /  Print  Lageos  orbit  determination  parameters 

fprintf (fout, "*  Orbit  Params  >  a  =  %#.0f;  e  =  %.7f;  i  =  %.5f;  [w  =  (M+w)  " 

"-  M];%n",  g_orbp.a,  g_orbp.e,  M_DPR*g_orbp . i,  &nc) ; 
fprintf (fout, "%*s\n" ,  width-nc,  "*"); 

fprintf (fout, "%-*s>  RAAN  =  {%11.6f,  %14.8f}%n",  nc2, " *" , M_DPR*g_orbp.W[0] , 
M_DPR*g_orbp . W [1 ]  ,  &nc) ; 
fprintf (fout, "%*s\n" ,  width-nc,  "*"); 
bsl  =  expcat (M_DPR*g_orbp .Mw [2] ,  &exl); 

fprintf (fout, "%-*s>  M+w  Quad  =  {%11.6f,  %14.8f,  % . 8fe%+d} %n" ,  nc2,  "*", 
M_DPR*g_orbp .Mw [ 0] ,  M_DPR*g_orbp .Mw [ 1 ] ,  bsl,  exl,  &nc) ; 
fprintf (fout, "%*s\n",  width-nc,  "*"); 
if  (g_orbp. f_sin)  { 

fprintf (fout, "%-*s>  M+w  Sin  =  {%11.6f,  %14.8f,  %13.8f}%n",  nc2,  "*", 
M_DPR*g_orbp .Mw [ 3] ,  M_2PI/g_orbp .Mw [ 4 ] ,  g_orbp .Mw [ 5] ,  &nc) ; 
fprintf (fout, "%*s\n",  width-nc,  "*"); 

} 

bsl  =  expcat (M_DPR*g_orbp .M [2 ]  ,  &exl) ; 

fprintf (fout, "%-*s>  M  Quad  =  {%11.6f,  %14.8f,  % . 8fe%+d} %n" ,  nc2,  "*", 
M_DPR*g_orbp .M [0 ] ,  M_DPR*g_orbp . M [ 1 ] ,  bsl,  exl,  &nc) ; 
fprintf (fout, "%*s\n",  width-nc,  "*"); 


//  Print  Lageos  satellite  model  parameters 
bsl  =  expcat (g_Il,  &exl); 
bs2  =  expcat (g_I3,  &ex2); 

fprintf (fout, "*  Satellite  >  Moments:  II  =  %.4fe%+d;  13  =  %.4fe%+d%n", 

bsl,  exl,  bs2,  ex2,  &nc) ; 
fprintf (fout, "%*s\n",  width-nc,  "*"); 
bsl  =  expcat (g_sigcore,  &exl) ; 

fprintf (fout, "%-*s>  MagTrq:  OrbFrq=%d  R(eq)=%.3f  flat=%.2f%%  MCScl=%.2f  " 

"MCShl=%.2f  sig=% . 4fe%+d%n" ,  nc2,  "*",  gf_mfreq,  g_rcore. 
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100* (l-g_oblcore) ,  g_magscl,  g_magshl-l . 0,  bsl,  exl,  &nc) ; 
fprintf (fout, "%*s\n" ,  width-nc,  "*"); 

//  Print  initial  spin  state  and  corresponding  epoch 

fprintf (tout, "*  ICs  (angle, rate)  >  theta  =  (%.2f,  %#.2g);  phi  =  (%.2f,  %#.2g);" 
"  psi  =  (%.2f,  %.6g)%n",  M_DPR*gsl_vector_get (g_state0, 0) , 
M_DPR*gsl_vector_get (g_state0, 3) ,  M_DPR*gsl_vector_get (g_state0, 1) , 
M_DPR*gsl_vector_get (g_state0, 4) ,  M_DPR*gsl_vector_get (g_state0, 2) , 
M_DPR*gsl_vector_get (g_state0,  5) ,  &nc) ; 
fprintf (fout, "%*s\n"/  width-nc,  "*") ; 

fprintf (f out, "%-*s>  epoch  (start)  =  %.6f  JD2K;  stop  =  %.6f  JD2K%n", 
nc2,  "*",  g_start,  g_stop,  &nc)  ; 
fprintf (fout, "%*s\n",  width-nc,  "*"); 

fprintf (fout, "*  Units  are  cgs  &  degrees;  some  values  implicit/not  directly  used 
"depending  on  integration  method%n" , &nc) ; 
fprintf (fout, "%*s\n",  width-nc,  "*"); 
banner (fout,  1,  '*',  0,  0,  width,  0,  0,  0,  0) ; 

//  Done  if  screen  print  accomplished 
if  (fout  ==  stdout)  break; 
fout  =  stdout; 

} 

break;  } 


// 


********************************  print  COLUMN  HEADER  ********** 
case  1:  { 

for  (;;)  { 

banner (fout,  1,  '  =  ',  0,  0,  width,  0,  0,  0,  0)  ; 
fprintf  (fout, "  runtime  |  |  sat  time  |  |  data  |  | integratn  | 

" |  retry  |  maxstep  | |  Function  |  delta 

fprintf (fout, "  mmiss.s  | |  JD2K  | |  line# | |  steps  | 

" |  steps  |  steps  I  I  calls  I  Fen 

banner (fout,  1,  '  =  ',  0,  0,  width,  0,  0,  0,  0)  ; 
if  (fout  ==  stdout)  break; 
fout  =  stdout; 


delta  |  | 
\n" )  ; 

intstp  | | 
\n")  ; 


success 

steps 


break;  } 


// 


PRINT  DATA  ELEMENTS 


default:  { 

static  unsigned  long  oldstp,  oldfcn,  dstp,  dfen; 

if  (f abs ( * j d2k-g_start)  <  le-10)  oldstp  =  oldfcn  =  0;  //  reset  for  iterative  calls 

dstp  =  (*nstp) -oldstp; 

dfen  =  (*nfcn) -oldfcn; 

elapsed_time ( &cltime,  &s) ; 

for  (;;)  { 

fprintf (fout,  "%31d: %04 . If  ||%9.2f  | | %51u  ||%91u  |%81d  | | %91u  | %81u  | %81u  " 

"| | %91u  |%81u\n",  cltime,  s,  *jd2k,  *num,  *nstp,  dstp,  *nok,  *nbad, 
*nmax,  *nfcn,  dfen)  ; 
if  (fout  ==  stdout)  break; 

//  Replace  time  line  in  output  file  with  updated  time  info 
currpos  =  ftell (fout) ; 
f seek (fout,  savepos,  SEEK_SET) ; 

fprintf (fout, "*  Date:  %.2s  %.3s  %.4s  Start  Time:  %.8s  Stop  Time:  %. 

"  Total  Time:  %31d:%04.1f  *\n",  start+8,  start+4,  start+20 

start+11,  nowstr+11,  cltime,  s) ; 
f seek (fout,  currpos,  SEEK_SET) ; 
fout  =  stdout; 

} 


oldstp  =  *nstp; 
oldfcn  =  *nfcn; 


PRO  GRAM :  f i 1 e_op  s 

Performs  output  file  maintenance  operations  (open,  close,  flush) 
INPUTS/OUTPUTS/RETURN  VALUE: 

f_mode  -  mode  flag:  0  =  open  files  for  standard  output, 

-1  =  open  temporary  file  streams  for  faux  output 
1  =  flush  output  streams. 
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2  =  close  files 
INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  stdio.h,  FLAG 
-  Lprot.h  :  lageos_error ( ) 

Lextern.h  :  fp_euler,  fp_angvel,  fp_angmom. 


fp_log,  fp_orbit 


void  file_ops (const  FLAG  f_mode) 

{ 

switch  (f_mode) 


/ 


case  -1:  {  //  no  file  output  so  just  set  pointers  to  NULL  stream 

fp_log  =  stdout; 

if  ((fp_euler  =  fopen ( "NUL : " , "w" ) )  ==  NULL) 

lageos_error ( "Could  not  open  temporary  euler  angle  output  file 
if  ((fp_angvel  =  fopen ( "NUL : " , "w" ) )  ==  NULL) 

lageos_error ( "Could  not  open  temporary  euler  angle  output  file 
if  ((fp_angmom  =  fopen ( "NUL : " , "w" ) )  ==  NULL) 

lageos_error ( "Could  not  open  temporary  euler  angle  output  file 
if  ((fp_orbit  =  fopen ( "NUL :", "w" ) )  ==  NULL) 

lageos_error ( "Could  not  open  temporary  euler  angle  output  file 
/*  the  above  is  theoretically  better  b/c  it  doesn't  even  create  a  tmp 
an  approach  using  the  tmpfileO  function  just  for  reference: 
if  ((fp_euler  =  tmpfileO)  —  NULL) 

lageos_error ( "Could  not  open  temporary  euler  angle  output  file 
break;  } 

case  0:  {  //  open  files  for  output 

if  ((fp_euler  =  fopen ("l_euler.txt", "w") )  ==  NULL) 

lageos_error ( "Could  not  open  euler  angle  output  file"); 
if  ((fp_angvel  =  fopen ( "l_angvel . txt" , "w" ) )  ==  NULL) 

lageos_error ( "Could  not  open  angular  velocity  output  file") ; 
if  ((fp_angmom  =  fopen ( "l_angmom. txt" , "w" ) )  ==  NULL) 

lageos_error ( "Could  not  open  angular  momentum  output  file"); 
if  ((fp_log  =  fopen ("l_log.txt", "w") )  ==  NULL) 

lageos_error ( "Could  not  open  program  log  output  file"); 
if  ((fp_orbit  =  fopen ( "l_orbit . txt ", "w") )  ==  NULL) 
lageos_error ( "Could  not  open  orbit  output  file"); 
break;  } 

case  1:  {  //  flush  buffers 

f flush (fp_euler) ; 
f flush ( fp_angvel) ; 
f flush ( fp_angmom) ; 
f flush (fp_log) ; 
f flush (fp_orbit) ; 
break;  } 

case  2:  {  //  close  output  files 

fclose  (fp_euler) ; 
f close  (fp_angvel) ; 
fclose  (fp_angmom) ; 

if  (fp_log  ! =  stdout)  fclose  (fp_log) ; 
fclose  (fp_orbit) ; 
break;  } 


file. 


but  here's 


*/ 


PROGRAM:  get_params 

Retrieves  and  initializes  program  parameters 
INPUTS/OUTPUTS/RETURN  VALUE: 

f_init  -  0  =  get  (reset)  initial  values  &  compute  derived  parameter  values 

1  =  only  (re) compute  derived  parameter  values  (do  not  reset  initial 
INCLUDES /EXTERNAL  REFERENCES: 


Lincl . h 

-  Lprot.h 

-  Lparams.h 


Lextern . h 


math.h,  gsl_math.h,  gsl_sort_vector .h,  gsl_vector . h, 
FLAG,  M_2PI,  M_RPD,  M_3_8PI,  SPJD 
lageos_error  ( )  ,  .  sincosO 

_NOUT,  _NVAR,  _TINY,  A,  ATOL,  Cl,  CLATM,  DESCR,  DRIVER, 
ECC,  ETAA,  ETAO ,  ETAD,  ETADD,  ETAM,  ETAP,  ETAT, 

FETASIN,  FGRAV,  FLATC,  FMAG,  FMFREQ,  FOUT,  GM,  HI,  HMAX, 
II,  13,  INC,  INSRC,  J2,  LONM,  MAXSTP,  MO,  MCSCL,  MCSHL, 
MD,  MDD,  MDM,  OUT1,  OUT2,  OUT3,  OUT4,  OUT5,  OUT6, 

PHI,  PHID,  PHIMOD,  PSI,  PSID,  PSIMOD, 

RCORE ,  RAANO,  RAAND,  RE,  RESET,  RTOL,  SAVE,  SIGC, 

START,  STOP,  TUAG,  THETA,  THETAD,  TITLE 

gf_driver,  gf_grav,  gf_idir,  gf_mag,  gf_mfreq,  gf_out, 

g_alph0,  g_atol,  g_atol0,  g_betal,  g_c,  g_clatm,  g_desc. 


values) 
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g_gm,  g_ 
g_J2,  g_ 
g_magco3 


g_outndx 
g_re,  g_ 
g_start , 
MODIFICATION  HISTORY: 
9711  Scott  Williams 
0210  Scott  Williams 
0211  Scott  Williams 


hO,  g_hmax,  g_Il,  g_I3,  g_13dll,  g_Ifact,  g_insrc, 
J2re2,  g_lonm,  g_magscl,  g_magfac,  g_magcol,  g_magco2, 
,  g_magshl,  g_maxstp,  g_mdm,  g_nout,  g_oblcore,  g_out, 
,  g_orb,  g_orbp,  g_orbw,  g_phimod,  g_psimod,  g_rcore, 
reset,  g_rtol,  g_rtol0,  g_save,  g_SCclatm/  g_sigcore, 
g_state0,  g_stop,  g_taug,  g_title,  g_vcore 


First  Release 

Incorporated  global  variables 
Added  new  model  parameters 


void  get_params (const  FLAG  f_init) 

{ 

int  i; 

double  out [_NOUT]  =  {OUT1,  OUT2,  OUT3,  OUT4,  OUT5,  OUT6}; 
double  spin [_NVAR]  =  {THETA,  PHI,  PSI,  THETAD,  PHID,  PSID}; 
double  *vptr; 


/ 


if  ( ! f_init )  { 

//  retrieve  program  title  and  version 
g_title  =  TITLE; 
g_desc  -  DESCR; 
g_insrc  =  INSRC; 


//  retrieve 
g_rtol0 
g_atol0  = 
g_rtol  - 

g_atol  - 

g_start  = 
g_stop  - 
g_h0 

g_maxstp  = 
g_hmax  = 


integration  control  parameters 
RTOL; 

gf_driver==l  ?  RTOL*_TINY  :  ATOL; 

g_rtol0 ; 

g_atol0; 

START; 

STOP; 

(gf_idir  =  (g_stop  >  g_start) )  ?  fabs(Hl)  :  -fabs(Hl); 
MAXSTP; 

gf_idir  ?  fabs ( (double)  HMAX)  :  -fabs ( (double)  HMAX) ; 


//  retrieve  variable  conditioning  parameters 
g_reset  =  fabs (RESET) ; 
g_phimod  =  fabs (PHIMOD) *M_2PI ; 
g_psimod  —  fabs (PSIMOD) *M_2PI ; 


//  retrieve  data  output  parameters 

g_save  =  gf_idir  ?  fabs ( (double)  SAVE)  :  -fabs ( (double)  SAVE) ; 

gf_out  =  FOUT; 

g_nout  =  gf_out  ?  _NOUT  :  0; 

for(i=0;  i<g_nout;  i++)  gsl_vector_set  (g_out,  i,  out[i]); 
gsl_sort_vector (g_out) ; 

if  (gf_idir)  {  //  find  first  element  >  g_start;  g_outndx  =  g_nout  if  all  <=  g_start 

vptr  =  gsl_vector_ptr (g_out,  0) ; 

for  (g_outndx=0;  ( (g_outndx  <  g_nout)  &&  ((*vptr)  <=  g_start) ) ;  g_outndx++) 
vptr  +=  g_out->stride; 


else  {  //  find  first  element  <  g_start;  g_outndx  =  g_nout  if  all  >=  g_start 

gsl_vector_reverse  (g_out) ; 
vptr  =  gsl_vector_ptr (g_out,  0) ; 

for  (g_outndx=0;  ( (g_outndx  <  g_nout)  &&  (*vptr  >=  g_start) ) ;  g_outndx++) 
vptr  +=  g_out->stride; 

} 


/ /  retrieve  model  component  option  switches 

gf_driver  =  DRIVER; 

g_orbp.f_sin  =  FETASIN; 

gf_grav  -  FGRAV; 

gf_mag  -  FMAG; 

gf_mfreq  -  ! (FMFREQ==0) ; 

if  (gf_mag  <  0  | |  gf_mag  >  2100  | |  (gf_mag  >  10  &&  gf_mag  <  1900) ) 

lageos_error  ("Invalid  mode  flag  for  Earth  Magnetic  Model") ; 


//  retrieve  physical 

g_c  -  Cl; 

g_gm  =  GM; 

g_J2  =  J2 ; 

g_re  =  RE; 

g_mdm  =  MDM; 


&  earth  related  parameters/constants 
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g_lonm  =  LONM*M_RPD; 

g_clatm  =  CLATM*M_RPD; 


//  retrieve  orbit  parameters 


g_orbp. a 
g_orbp. e 
g_orbp. i 
g_orbp. W[0] 
g_orbp. W [ 1  ] 
g_orbp.Mw [0] 
g_orbp.Mw [1 ] 
g_orbp.Mw [2 ] 
g_orbp.Mw [3] 
g_orbp.Mw [4 ] 
g_orbp.Mw [5] 
g_orbp.M[0] 
g_orbp.M[l] 
g_orbp.M[2] 
g_orbw 


A; 

ECC; 

INC*M_RPD; 

RAAN  0  *  M_RP  D ; 

RAAN  D  *  M_RP  D  ; 

(ETAO  +  (g_orbp . f_sin==l ) *ETAM) *M 
ETAD*M_RPD; 

E  T AD  D  *  M_RP  D  ; 

ETAA*M_RPD; 

M_2PI/ETAT; 

ETAP ; 

M0*M_RPD; 

MD*M_RPD; 

MDD*M_RPD; 

2 . 0*g_orbp .Mw [ 1 ] /SPJD; 


RPD; 


//  retrieve 
g_rcore  = 
g_sigcore  - 
g_oblcore  - 
g_magscl  = 
g_magshl  = 
g_Il 

g_1 3  = 
g_taug  - 


satellite  parameters 
RCORE ; 

SIGC; 

1 . 0-FLATC; 

MCSCL; 

1 .0+MCSHL; 
il; 

13; 

TAUG; 


//  retrieve  initial  satellite  spin  state 

for  (i=0;  i<_NVAR;  i++)  gsl_vector_set  (g_state0,  i,  spin [ i] *M_RPD) ; 


//  Compute  derived  parameters 

g_13dll  =  g_I3/g_Il; 

g_Ifact  =  1.0  -  g_13dll; 

g_vcore  =  4*M_PI*gsl_pow_3 (g_rcore) /3; 

if  (g_magscl  J-  -999)  g_magfac  =  (g_magscl  <  0.0)  ?  0.0  :  g_magscl; 

g_magshl  =  (g_magshl  <  1.0)  ?  1.0  :  g_magshl; 

g_magcol  =  2*g_rcore*sqrt (M_2PI*g_sigcore) /g_c; 

g_magco2  =  3*M_3_8PI/g_magcol ; 

g_magco3  -  -6*M_3_8PI/gsl_pow_2 (g_magcol) ; 

g_betal  =  3*g_gm*g_taug* (g_I3-g_Il ) ; 

g_J2re2  =  0 . 5*g_J2*gsl_pow_2 (g_re) ; 

g_alph0  =  fmod (M_PI_2+g_lonm,  M_2PI) ; 

sincos (g_clatm,  g_SCclatm); 

sincos (g_orbp . i,  g_orb.sci); 

} 


PROGRAM:  lageos_error 

For  a  Lageos  Spin  Model  run-time  error,  screen  prints  error  message  and  exits  routine 
INPUTS/OUTPUTS/RETURN  VALUE: 

*error_text  -  Error  message  to  print  (string) 

INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  stdlib.h,  stdio.h 


void 


lageos_error (char  *error_text) 


fprintf (stderr, "Lageos  Spin  Model  run-time  error ... \n") ; 

fprintf (stderr, "%s\n" , error_text) ; 

fprintf (stderr, "...  now  exiting  to  system. .. \n") ; 

system ("PAUSE") ; 

exit  (1)  ; 


/ 


PROGRAM:  lageos_warn 

Prints  a  warning  message  to  the  standard  output  stream  as  well  as  the  stream  specified  on 
input  if  different  than  stdout 
INPUTS/OUTPUTS/RETURN  VALUE: 

*fout  -  pointer  to  output  stream 
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*warn_text  -  Error  message  to  print  (string) 
sim_time  -  Simulation  time  of  warning  trigger 
INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  stdlib.h,  stdio.h 


void  lageos_warn (FILE  *fout,  double  sim_time,  char  *warn_text) 

{ 

for  (;;)  { 

fprintf (f out, "WARNING  at  %9.2f  ||",  sim_time) ; 
fprintf (fout, "%s\n",  warn_text) ; 
if  (fout  ==  stdout)  break; 
fout  =  stdout; 


/ 


//* 


LINCL.H 


#define  FLAG 
#define  M_2PI 
#define  M_DPR 
#define  M_RPD 
#define  M_3_8PI 
♦define  SPJD 
#define  _S2JD(a) 
#define  _JD2S (a) 
// - 


int 

6.28318530717958647693 

57.2957795130823208768 

1. 74532925199432 957 6 92e-02 

0.11936620731892150183 

86400.0 

((a) /(SPJD)) 

((a)* (SPJD)) 


// 

2*pi 

3->2  .  . 

.  .528676656 

// 

degrees 

per 

radian 

CO 

V 

—j 

.  .  981548141 

// 

radians 

per 

degree 

2->2  .  . 

.  .369076849 

// 

3/8PI 

3->2  .  . 

.  .666282253 

//  seconds  per  Julian  Day  (exact) 
//  convert  seconds  to  Julian  Days 
//  convert  Julian  Days  to  seconds 


// . 

#include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
♦include 
// - 


climits . h> 
Cmalloc . h> 
Cmath . h> 
<stdio . h> 
<stdlib . h> 
<string . h> 
<time . h> 
<g2c . h> 


Standard  &  GCC  Header  Files  - - - - - - - 

//  Constants  for  sizes  of  integer  types 
/ /  Memory  management 
//  Mathematical  functions  and  macros 
//  Functions  controlling  input/output 
//  Facilities  for  number  conv . ,  storage  alloc. 
//  Facilities  for  manipulating/comparing  strgs 
//  Types  and  funcs  for  manipulating  date/time 
//  GCC  version  of  f2c 


// . 

♦include 

♦include 

♦include 

♦include 

♦include 

♦include 


GNU  Scientific  Library  Header  Files  - - ' - ~ 

//  Basic  linear  algebra  routines 
//  General  math  routines  &  related  constants 
//  Matrix  routines  &  structures 
//  Polynomial  routines 


<gsl/gsl_blas .h> 

<gsl/gsl_math .h> 

<gsl/gsl_matrix .h> 

<gsl/gsl_poly .h> 

<gsl/gsl_sort_vector .h>  //  Vector  sort  routines 


<gsl/gsl_vector .h> 


//  Vector  routines  &  structures 


/*  GSL  is  a  collection  of  routines  for  numerical  computing  written  in  strict  ANSI  C.  It  is 
distributed  under  the  GNU  General  Public  License  which  basically  says  it's  free  to  use  and 
distribute  for  non-proprietary  purposes.  Website:  http://sources.redhat.com/gsl/ 


The  present  GSL  package  is  from  the  GNUWin32  Project  which  provides  a  Win32  port  of  GNU 
tools.  Website:  http://gnuwin32.sourceforge.net/ 
- */ 


struct  euler  data 


- - - - -  Structures  - - 

//  structure  for  euler  angle  data  sets 


double 

j  d2k, 

double 

th; 

double 

ph; 

long 

nph; 

double 

ps; 

long 

nps; 

double 

thd; 

double 

phd; 

double 

psd; 

double 

ra; 

double 

dec; 

//  JD2K  of  data  set 

//  euler  angle  theta  (nutation  angle) 
//  euler  angle  phi  (precession  angle) 
//  modulo  counter  for  phi 
//  euler  angle  psi  (spin  angle) 

//  module  counter  for  psi 
//  time  derivative  of  theta 

//  time  derivative  of  phi 

//  time  derivative  of  psi 

//  right  ascension  of  body  axis 

//  declination  of  body  axis 
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ruct 

orb  params 

// 

double 

a; 

// 

double 

e; 

// 

double 

i; 

// 

double 

W[2]  ; 

// 

double 

M [ 3]  ; 

// 

double 

Mw [ 6 ] ; 

// 

// 

// 

int 

f  sin; 

// 

//  structure  of  parameters  for  orbit  propagation  equations 
semi -major  axis  (cm) 


constant 
:  constant 
(rad)  :  constant 

:  linear  W [ 0 ]  +  W[l]*t  (JD2K) 

(rad)  :  quadratic  M [ 0 ]  +  M[l]*t  +  M[2]*tA2 
position  :  quadratic  Mw[0]  +  Mw[l]*t  +  Mw[2]*tA2 
rad)  :  +  sinusoidal  Mw [3] *sin ( (t+Mw[5] ) *Mw [4] ) 

:  where  Mw[4]  =  2pi/period 
//  Sin  model  flag:  l=use;  0=don't  use 
//  some  orbit  parameters  are  not  directly  computed  (e.g.,  w)  so  are  omitted  from  this  list 


inclination 
RAAN  (rad) 


M  + 


struct  orb_posn 


// 


// 


//  note 

:  a,  e,  &  i 

are  cons' 

double 

j  d2k; 

//  . 

double 

w; 

//  . 

double 

W; 

//  : 

double 

M; 

//  i 

double 

E; 

//  . 

double 

Mw; 

//  1 

long 

rev; 

//  : 

double 

r ; 

// 

gsl  vector  *  v  r; 

//  1 

double 

sci [2 ] ; 

// 

double 

sew [2 ] ; 

// 

double 

scW [2 ] ; 

// 

double 

scMw[2] ; 

// 

:ruct  spin  data 

// 

double 

j  d2k; 

//  . 

double 

mag; 

//  i 

double 

ax; 

//  i 

double 

tr; 

// 

double 

Blon; 

//  1 

double 

Blat; 

//  1 

double 

ra; 

//  : 

double 

dec; 

//  . 

double 

Olon; 

//  i 

double 

Olat; 

//  i 

//  structure  of  current  orbit  position  variables 

i  are  constant  in  current  orbit  model  and  stored  in  the  orb_params  struct 
JD2K  time  of  satellite  position 
argument  of  perigee  (rad) 

right  ascension  of  the  ascending  node  (rad) 
mean  anomaly  (rad) 

eccentric  anomaly  E  -  esin(E)  =  M;  approximated  as  E  =  M  +  e  sin  M 
M  +  w  (rad) 

revolution  #  wrt  line  of  nodes 
scalar  radius  of  satellite  position  (cm) 

//  ECI  radial  position  UNIT  vector 
sin  &  cos  of  inclination 
sin  &  cos  of  argument  of  perigee 
sin  &  cos  of  RAAN 
sin  &  cos  of  M+w 

//  structure  for  angular  velocity  and  angular  momentum  data  sets 


Fortran  Interfacing 


#define  bspcar 
#define  igrf 
#define  ode 
// - 


bspcar_ 

igrf_ 

ode 


♦include 
♦include 
♦include 
// - 


Custom  Header  Files 


" Lprot . h" 

" Lparams . h" 
"Ldop853 . h" 


LPROT.H 

Files:  Lmain.c,  Lio.c 

Lmain.c  _____________________ 

void  global_alloc (FLAG  f_mode) ; 

void  intgr8_init (const  int  nvar,  double  *y,  double  *h,  double  *x,  double  *stop, 
double  *dsav,  double  *xsav,  int  *nout,  double  *xout) ; 
void  lageos_main (void)  ; 

void  lageos_spin_nr (void  (*derivs)  (const  double,  const  double  *,  double  *)  , 

void  (*step) (double  *,  const  double  *,  const  int,  double  *,  double. 
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const  double,  const  double  *,  double  *,  double  *, 
void  (*derivs) (const  double,  const  double  *,  double  *))); 
void  lageos_spin_rk (void  (*derivs) (unsigned,  double,  double  *,  double  *) ) ; 
void  lageos_spin_de (U_fp  f  (const  doublereal  *x,  const  doublereal  *y,  doublereal*yp) ) ; 

Lio.c  -------------------- 

void  banner (FILE  *fptr,  FLAG  f_nl,  char  cleft,  char  cmid,  char  cright,  int  lleft, 
int  lpad,  int  lmid,  int  rpad,  int  lright) ; 

void  dump_data (const  double  x,  const  double  *y,  const  long  nphi,  const  long  npsi, 

const  unsigned  long  nstp,  const  unsigned  long  nok,  const  unsigned  long  nbad, 

const  unsigned  long  nmax,  const  unsigned  long  nfcn) ; 

void  dump_headers (void)  ; 

void  dump_log (FILE  *fptr,  const  FLAG  f_mode,  const  double  *jd2k,  const  unsigned  long  *num, 
const  unsigned  long  *nstp,  const  unsigned  long  *nok,  const  unsigned  long  *nbad, 

const  unsigned  long  *nmax,  const  unsigned  long  *nfcn) ; 

void  file_ops (const  FLAG  f_mode) ; 

void  get_params (const  FLAG  f_mode) ; 
void  lageos_error (char  *error_text) ; 

void  lageos_warn (FILE  *fout,  double  sim_time,  char  *warn_text) ; 


*/ 


/*  - - - - - - - - - - —  Lnumeric  folder 

Files:  Ldop853.c,  Lnr_c.c,  Lshode.f 


// - 

//  prototypes  in  header  Ldop853.h 


Ldop853 . c 


//  --------------------  Lnr_c.c  --------------------- 

void  bsstep (double  *y,  const  double  *dydx,  const  int  nv,  double  *xx,  double  h, 
const  double  eps,  const  double  *yscal,  double  *hdid,  double  *hnext, 
void  (*derivs) (const  double,  const  double  *,  double  *)); 
void  bdstep (double  *y,  const  double  *dydx,  const  int  nv,  double  *xx,  double  htry, 
const  double  eps,  const  double  *yscal,  double  *hdid,  double  *hnext, 
void  (*derivs) (const  double,  const  double  *,  double  *)); 
float  dfridr (float  (*func) (float),  float  x,  float  h,  float  *err,  FLAG  *f_status,  float  rtol) ; 

void  mmid (const  double  *y,  const  double  *dydx,  const  int  nvar,  const  double  xs, 

const  double  htot,  const  int  nstep,  double  *yout, 
void  (*derivs) (const  double,  const  double  *,  double  *)); 
void  rzextr (const  int  iest,  double  xest,  const  double  *yest,  double  *yz,  double  *dy, 
const  int  nv,  double  *x,  const  int  nc,  double  d[nv+l] [nc] ) ; 
unsigned  long  f cncntRead (void) ; 
void  fcncntReset (void) ; 


//  --------------------  Lshode.f  --------------- 

void  ode (U_fp  f,  integer  *neqn,  doublereal  *y,  doublereal  *t,  doublereal  *tout, 

doublereal  *relerr,  doublereal  *abserr,  integer  *iflag,  doublereal  *work, 
integer  *iwork,  integer  *nostep,  integer  *nfcn) ; 

//  remaining  subroutines  are  only  referenced  internally  so  no  need  to  prototype 


Lmodel  folder 


Files:  Lderivs.c,  Ligrf2000.c,  Ltools.c 


// - igrf 2000 .  f - 

void  igrf (integer  *iy,  integer  *nm,  doublereal  *r _ ,  doublereal  *t,  doublereal  *f, 

doublereal  *br,  doublereal  *bt,  doublereal  *bf ) ; 
void  bspcar (doublereal  *teta,  doublereal  *phi,  doublereal  *br,  doublereal  *btet, 
doublereal  *bphi,  doublereal  *bx,  doublereal  *by,  doublereal  *bz) ; 


LtOOlS.C  ------------------ 

void  elapsed_time (long  *eminutes,  double  *eseconds) ; 

void  euler_rot (const  FLAG  f_mode,  const  double  th,  const  double  phi,  const  double  psi, 
double  *sc_th,  double  *sc_phi,  double  *sc_psi,  const  FLAG  f_tr, 
gsl_matrix  *  T_tr,  gsl_vector  *  v_tr) ; 


double  expcat (double  x,  int  *expn) ; 

double  j d2k_2_gha (const  double  jd2k,  const  FLAG  f_gh0,  double  *gh0); 


void  sincos (double  x,  double  *sc_x) ; 

void  vector_cross (const  gsl_vector  *  a,  const  gsl_vector  *  b,  gsl_vector  *  result); 

Lderivs.c  ---------------- 

int  deriv (const  double  x,  const  double  *y,  double  *dydx) ; 

void  deriv_shell_rk  (unsigned  nvar,  double  x,  double  *y,  double  *f ) ; 

U_fp  deriv_shell_de  (const  doublereal  *x,  const  doublereal  *y,  doublereal  *yp) ; 
void  eom_free  (const  double  *y,  double  *dyfree,  const  double  *sc_th,  double  *work) ; 
void  grav_torques  (const  gsl_vector  *  v_r,  const  double  *rsqr,  const  double  *rcube, 
const  gsl_matrix  *  T_e2b,  gsl_vector  *  v_dcosBr,  double  *Ngrav) ; 


/ 
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void  mag_torques (const  double  *jd2k,  const  double  *rcube,  const  double  *y, 

const  double  *sc_psi,  const  double  *phidsth/  const  double  *phidcth,  double  *Nmag) ; 
void  sat_postn (const  double  jd2k,  struct  orb_posn  *  orb) ; 


*/ 


LGLOB.H 

//  program  title  and  version  number 
char  *g_title;  //  program  title 

char  *g_desc;  //  run  description 

char  *g_insrc;  //  input  source 

//  integration  control  parameters 

FLAG  gf_idir;  //  integration  direction  flag  l=increasing  time;  0=decreasing  time 

double  g_atolO;  //  absolute  error  tolerance 

double  g_hO;  //  signed  initial  step  size 

double  g_hmax;  //  signed  maximum  integration  stepsize  allowed 

double  g_maxstp;  //  maximum  number  of  integration  steps  allowed 

double  g_rtolO;  //  relative  error  tolerance 

double  g_start;  //  JD2K  integration  start  time 

double  g_stop;  //  JD2K  integration  stop  time 

//  variable  conditioning  parameters 

double  g_phimod;  //  upperbound  (mult  of  2pi)  for  modulo  or  Euler  angle  phi 

double  g_psimod;  //  upperbound  (mult  of  2pi)  for  modulo  or  Euler  angle  psi 

double  g_reset;  //  max  value  (s)  of  local  independent  variable  b4  reset  to  zero 

//  data  output  parameters 

FILE  *fp_angmom;  //  file  pointer  for  angular  momentum  output  file 

FILE  *fp_angvel;  //  file  pointer  for  angular  velocity  output  file 

FILE  *fp_euler;  //  file  pointer  for  euler  angle  output  file 

FILE  *fp_log;  //  file  pointer  for  integration  log  output  file 

FILE  *fp_orbit;  //  file  pointer  for  orbit  position  output  file 

FLAG  gf_out;  //  targeted  output  flag  0=none,  l/2=do  with/without  file  writes 

int  g_nout;  //  targeted  output  time  array  size 

gsl_vector  *g_out;  //  array  of  targeted  output  times 

long  g_outndx;  //  index  of  closest  g_out  element  to  g_start  in  direction  of  g_stop 

double  g_save;  //  signed  time  interval  for  writing  recurrent  output  data 

//  model  implementation  switches 

FLAG  gf_driver;  //  driver  routine  selection  flag 

FLAG  gf_grav;  //  Use  1st  zonal  term  (J2)  in  gravity  model:  l=yes;  0=no 

//  Note:  orbit  model  sin  correction  flag  part  of  g_orbp  struct 
FLAG  gf_mag;  //  Order  of  spherical  harmonics  to  use  in  IGRF  magnetic  field  model 

FLAG  gf_mfreq;  //  Specifies  additive  use  of  orbit  frequency  in  mag  torque 

//  physical  &  earth  related  parameters 

double  g_alphO;  //  earth-fixed  longitude  of  z  cross  m 

double  g_c;  //  speed  of  light 

double  g_clatm;  //  co-latitude  of  m 

double  g_gm;  //  product  of  gravitational  constant  &  earth  mass 

double  g_J2;  //  1st  order  Earth  geopotential  "zonal'  coefficient 

double  g_J2re2;  //  multiplication  factor:  0.5*J2*Re 

double  g_mdm;  //  earth  magnetic  dipole  moment 


Files:  Lopt.c 


Loptimize  folder 


Lopt.c  ------------------- 

void  lageos_optmain (void) ; 

void  dump_params  (FILE  *fpout,  char  *subname,  const  gsl_vector  *v_mp,  FLAG  f_err, 
double  *err,  FLAG  f_endl) ; 

void  dfopt  (const  gsl_vector  *  v_mp,  void  *  fpar,  gsl_vector  *  v_fgrad) ; 

void  fdfopt  (const  gsl_vector  *  v_mp,  void  *  fpar,  double  *fcn,  gsl_vector  *  v_fgrad) ; 

double  fopt  (const  gsl_vector  *  v_mp,  void  *  fpar) ; 

double  fopt_shell  (const  double  p,  void  *  fpar) ; 

float  f opt_shell_f loat  (const  float  p) ; 

void  opt_data_init  (void) ; 

void  opt_file_ops (const  FLAG  f_mode) ; 

void  opt_params (void)  ; 
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double  g_lonm;  //  earth-fixed  longitude  of  m  (magnetic  dipole  vector) 

double  g_re;  //  equatorial  radius  of  the  earth 

double  g_SCclatm[2] ;  //  sine  &  cosine  of  co-latitude  of  m 

//  orbit  parameters  (for  orbit  propagation  equations) 

struct  orb_params  g_orbp  —  {0,0,0, {0,0}, {0,0,0}, {0, 0,0, 0,0,0}, 0}; 

double  g_orbw;  //  2  x  orbital  frequency  (rad/s) 

//  satellite  paramters 

double  g_betal;  //  multiplication  factor  for  computing  gravitational  torque 

double  g_Il;  //  Lageos  transverse  principle  moment  of  inertia 

double  g_I3;  //  Lageos  axial  principle  moment  of  inertia 

double  g_13dll;  //  Ratio  13/11 

double  g_Ifact;  //  1.0  -  13/11 

double  g_magscl;  //  scaling  factor  for  cylinder  adjustment  to  core  mag  coeff 

double  g_magshl;  //  spherical  shell  correction  factor 

double  g_magfac;  //  magnetization  coefficients  field  orientation-based  scaling  factor 

double  g_magcol ;  //  derived  multiplication  factor  for  computing  magnetization  coeff 

double  g_magco2 ;  //  derived  multiplication  factor  for  computing  magnetization  coeff 

double  g_magco3;  //  derived  multiplication  factor  for  computing  magnetization  coeff 

double  g_oblcore;  //  oblate  core  correction  factor  for  magnetic  model  =  1-FLATC  =  Rp/Re 

double  g_rcore;  //  radius  of  reference  metallic  sphere  for  satellite  core 

double  g_sigcore;  //  effective  conductivity  of  reference  metallic  sphere  for  sat.  core 

double  g_taug;  //  gravity  torque  scaling  parameter 

double  g_vcore;  //  volume  of  reference  metallic  sphere  for  satellite  core 

//  initial  satellite  spin  state  (at  g_start) 
gsl_vector  *  g_state0;  //  initial  spin  state 

//  'targeted'  output  data  set  variables  (angles  in  radians) 

int  g_tcnt;  //  array  index  placeholder  (pts  to  'active'  array  element) 

struct  euler_data  *g_euler;  //  struct  array  for  euler  angle  data  sets 

struct  spin_data  *g_L;  //  struct  array  for  angular  momentum  data  sets 

struct  spin_data  *g_w;  //  struct  array  for  angular  velocity  data  sets 


//  working 

variables 

double 

g  atol; 

double 

g  epoch; 

double 

g  rtol; 

struct  orb 

posn 

g  orb; 

gsl  matrix 

*gT  o2e; 

gsl  matrix 

*gT_e2b; 

gsl  matrix 

*gT  b2L; 

gsl_vector 

view 

gT  b2Lrl 

gsl  vector 

view 

gT  b2Lr2 

gsl  vector 

view 

gT  b2Lr3 

gsl  vector 

*gv  B; 

gsl  vector 

*gv  Bb; 

gsl  vector 

*gv  Nmagb 

gsl  vector 

*gv  work; 

//  absolute  error  tolerance 
//  model  time  (JD2K) 

//  relative  error  tolerance 

//  working  variable  for  orbit  position  computation 

//  Orbit  frame  to  ECI  transformation  matrix 

//  ECI  to  body  frame  transformation  matrix 

//  Body  to  Landau-Lif shitz  framer  transformation  matrix 

//  1st  row  of  gT_b2L 

//  2nd  row  of  gT_b2L 

//  3rd  row  of  gT_b2L 

//  ECI  magnetic  field  vector 

//  Body  frame  magnetic  field  vector 

//  Body  frame  magnetic  torque  vector 


//  Scratch  vector  for  computations 


LEXTERN.H 

//  program  title  and  version  number 
extern  char  *g_title; 

extern  char  *g_desc; 

extern  char  *g_insrc; 

//  integration  control  parameters 

extern  FLAG  gf_idir; 

extern  double  g_atol0; 

extern  double  g_h0; 

extern  double  g_hmax; 

extern  double  g_maxstp; 

extern  double  g_rtol0; 

extern  double  g_start; 

extern  double  g_stop; 

//  variable  conditioning  parameters 
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extern  double  g_phimod; 

extern  double  g_psimod; 

extern  double  g_reset; 

//  data  output  parameters 
extern  FILE  *fp_angmom; 

extern  FILE  *fp_angvel; 

extern  FILE  *fp_euler; 

extern  FILE  *fp_log; 

extern  FILE  *fp_orbit; 

extern  FLAG  gf_out; 

extern  int  g_nout; 

extern  gsl_vector  *g_out; 
extern  long  g_outndx; 

extern  double  g_save; 

//  model  implementation  switches 
extern  FLAG  gf_driver; 

extern  FLAG  gf_grav; 

extern  FLAG  gf_mag; 

extern  FLAG  gf_mfreq; 

//  physical  &  earth  related  parameters 

extern  double  g_alphO; 

extern  double  g_c; 

extern  double  g_clatm; 

extern  double  g_J2; 

extern  double  g_J2re2; 

extern  double  g_gm; 

extern  double  g_mdm; 

extern  double  g_lonm; 

extern  double  g_re; 

extern  double  g_SCclatm [2 ] ; 

//  orbit  parameters  (for  orbit  propagation  equations) 
extern  struct  orb_params  g_orbp; 
extern  double  g_orbw; 

//  satellite  paramters 
extern  double  g_betal; 

extern  double  g_Il; 

extern  double  g_I3; 

extern  double  g_13dll; 

extern  double  g_Ifact; 

extern  double  g_magscl; 

extern  double  g_magshl; 

extern  double  g_magfac; 

extern  double  g_magcol; 

extern  double  g_magco2; 

extern  double  g_magco3; 

extern  double  g_oblcore; 

extern  double  g_rcore; 

extern  double  g_sigcore; 

extern  double  g_taug; 

extern  double  g_vcore; 

//  initial  satellite  spin  state  (at  g_start) 
extern  gsl_vector  *  g_stateO; 

//  'targeted'  output  data  set  variables  (angles  in  radians) 

extern  int  g_tcnt; 

extern  struct  euler_data  *g_euler; 

extern  struct  spin_data  *g_L; 

extern  struct  spin_data  *g_w; 

//  working  variables 
extern  double  g_atol; 

extern  double  g_epoch; 

extern  double  g_rtol; 

extern  struct  orb_posn  g_orb; 

extern  gsl_matrix  *gT_o2e; 

extern  gsl_matrix  *gT_e2b; 

extern  gsl_matrix  *gT_b2L; 

extern  gsl_vector_view  gT_b2Lrl; 

extern  gsl_vector_view  gT_b2Lr2; 
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extern  gsl_vector_view  gT_b2Lr3; 
extern  gsl_vector  *gv_B; 

extern  gsl_vector  *gv_Bb; 

extern  gsl_vector  *gv_Nmagb; 

extern  gsl_vector  *gv_work; 


Physical  Model 


LIGRF2000.F  -  External  Package;  see  [i]. 


LDERIVS.C 


♦include  "Lincl.h" 
#include  "Lextern.h" 


PROGRAM:  deriv,  deriv_shell ( s) 

Computes  the  right  hand  side  of  the  differential  equations  (Euler  angles  equations  of  motion) 
for  the  spin  components  of  the  LAGEOS  satellite  (Euler  Angles).  The  shell (s)  are  simply 
alternate  calling  formats  for  consistency  with  different  ode  solvers. 

INPUTS/OUTPUTS/RETURN  VALUE: 

x  -  value  of  the  independent  variable 

y  -  Euler  angle  state  vector  (ie,  dependent  variables)  at  time  =  x 

dydx  -  resulting  state  vector  derivatives  at  time  =  x 
RETURN  -  GSL_SUCCESS 
INCLUDES/EXTERNAL  REFERENCES: 

Lincl.h  :  math.h,  gsl_math.h,  _S2JD/  g2c.h  (for  shell_de) 

-  Lprot.h  :  eom_free(),  euler_rot(),  grav_torques () ,  mag_torques ( ) ,  sat_posn() 

-  Lparams.h  :  _TINY 

Lextern.h  :  gT_e2b,  gv_work,  g_epoch,  g_Il,  g_I3,  g_orb 


inserted, 
into  essential 


COMMENTS : 

Initial  routine  (derivl)  implemented  equations  developed  in  Miller,  Holz,  et  al  paper 
'Spin  Dynamics  of  the  LAGEOS  Satellite  in  Support  of  a  Measurement  of  the  Earth's 
Gravitomagnetism' .  The  routine  was  later  updated  to  improve  computational  efficiency  and 
a  better  magnetic  model  (accounting  for  the  tilt  of  the  magnetic  axis)  was 
The  present  effort  has  streamlined  this  routine  by  breaking  the  equations 
modules.  In  order  of  reference,  they  are: 

-  satellite  orbital  position 

-  free  motion  equations 

-  gravitational  torques 

-  magnetic  torques 
MODIFICATION  HISTORY: 

????  Warner  Miller  First  Release 

Dan  Holz 

9710  Scott  Williams  Optimized  for  efficiency 

9711  Scott  Williams  Added  tilt  between  earth  spin  &  mag  axes 

0210  Scott  Williams  Broke  routine  into  modules  for  essential  components 


(see  comments) 


void  deriv_shell_rk  (unsigned  nvar,  double  x,  double  *y,  double  *f) 

{ 


deriv (x,  y,  f ) ; 


// - 

U_fp  deriv_shell_de  (const  doublereal  *x,  const  doublereal  *y,  doublereal  *yp) 

{ 

const  double  *py  =  y-1; 
double  *dydx  =  yp-1; 

deriv  (*x,  py,  dydx); 
return  0; 


// - 

int  deriv (const  double  x,  const  double  *y,  double  *dydx) 
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double  rsqr,  rcube,  jd2k,  workl; 

double  sc_th[2],  sc_phi[2],  sc_psi[2],  Ngrav [3],  Nmag [3],  work[5]; 

//  already  have  derivatives  of  first  three  variables 
dydx[l]  =  y[4];  dydx[2]  *=  y[5];  dydx[3]  =  y[6]; 

/ /  convert  time  to  JD2K  format 
jd2k  =  g_epoch  +  _S2JD(x); 

//  determine  position  of  the  satellite  at  time  x 
sat_postn ( j d2k,  &g_orb) ; 
rsqr  =  gsl_pow_2 (g_orb . r ) ; 
rcube  =  rsqr*g_orb. r; 

//  compute  sine  &  cosine  of  Euler  Angles  &  ECI  to  body  transformation  matrix 
euler_rot(0,  y[l],  y[2],  y [ 3 ] ,  sc_th,  sc_phi,  sc_psi,  4,  gT_e2b,  NULL); 
if  (fabs (sc_th [0] ) <_TINY)  sc_th[0]  =  GSL_SIGN (sc_th [0] ) *_TINY; 


//  Compute  'free'  components  of  the  Euler  Equations 
eom_free  (y,  &dydx[4],  sc_th,  work)  ; 


//  compute  body  frame  components  of  gravitational  torques 
grav_torques  (g_orb.v_r,  &rsqr,  &rcube,  gT_e2b,  gv_work,  Ngrav) ; 


//  compute  body  frame  components  of  magnetic  torques 
mag_torques (& jd2k,  &rcube,  y,  sc_psi,  &work[0],  &work[2],  Nmag) ; 


//  compute  forced  components  of  Euler  Equations 
Nmag[0]  +=  Ngrav [0] ; 

Nmag[l]  +=  Ngrav [1] ; 

//Nmag [2]  +=  Ngrav [2];  ==>  Ngrav [2]  =  0! 

dydx[4]  +=  (Nmag [0 ] *sc_psi [1 ]  -  Nmag [1] *sc_psi [0] ) /g_Il; 
workl  =  (Nmag [1 ] *sc_psi [1 ]  +  Nmag [0] *sc_psi [0] ) /g_Il; 
workl  =  workl /sc_th [0 ] ; 

dydx[5]  +=  workl; 

dydx[6]  +=  Nmag[2]/g_I3  -  workl *sc_th [1] ; 


return  GSL_SUCCESS; 

} 


PRO  GRAM :  e  om_f  r e  e 

Computes  the  free  motion  components  of  the  euler  angles  equations  of  motion  and  stores 
INPUTS/OUTPUTS/RETURN  VALUE: 

y  -  UNIT  OFFSET  euler  angle  state  vector 

sc_th  -  array  containing  pre-computed  sin  &  cos  of  theta 
dyfree  -  ZERO  OFFSET  array  with  right  hand  sides  for  y[4]  through  y[6] 
work  -  5  element  array  to  store  computed  products 
INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  math.h 
Lextern.h  :  g_13dll,  g_Ifact 


COMMENTS : 

-  Assumes  sc_th[0]  has  already  been  preconditioned  to  avoid  a  divide  by  zero  issue 


void  eom_free  (const  double  *y,  double  *dyfree,  const  double  *sc_th,  double  *work) 

{ 


work [ 4 ] 
work [3] 
work[2] 
work [ 1 ] 
work [ 0] 


y [4 ] /sc_th [ 0] ; 
g_13dll  *  y  [  6 ] ; 
y [5]  *  sc_th [1] ; 
g_Ifact*work[2]  -  work[3] ; 
y [5]  *  sc_th [0] ; 


dyfree [ 0] 
dyfree [1] 
dyfree [2] 


work [0 ] 
-work [4 ] 
work [4 ] 


work [1 ] ; 

(work[l]  +  work[2]); 

(sc_th [1 ] *work [1 ]  +  y[5]); 


/ 
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PROGRAM:  grav_torques 

Computes  the  body  frame  components  of  the  gravitational  torque  on  the  Lageos  satellite 
INPUTS/OUTPUTS/RETURN  VALUE: 

v_r  -  EC I  satellite  position  unit  vector  (gsl_vector  type) 

rsqr  -  pointer  to  computed  square  of  satellite's  radius  (i.e.,  magnitude  of  v_r  squared) 

rcube  -  pointer  to  computed  cube  of  the  satellite's  radius 

T_e2b  -  transformation  matrix  FROM  ECI  to  Body  frame  (gsl_matrix  type) 

v_dcosBr  -  gsl  type  vector  to  store  computed  direction  cosines  between  the  body  axes  and  -v_r 
Ngrav  -  resulting  vector  (std  3  dim  array)  of  body  axis  satellite  torques 
INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  math.h,  gsl_blas.h,  gsl_matrix . h,  gsl_vector.h 
Lextern.h  :  g_betal,  g_J2re2 
COMMENTS : 

-  The  ECI  representations  of  the  satellite  body  axes  are  merely  the  rows  of  the  ECI  to  Body 
transformation  matrix 


MODIFICATION  HISTORY: 

0210  Scott  Williams 
0211  Scott  Williams 


Separated  this  module  from  deriv()  to  run  as  a  subroutine 
Added  J2  zonal  term  for  higher  accuracy  calculations 


void 

{ 


grav_torques  (const  gsl_vector  *  v_r ,  const  double  *rsqr,  const  double  *rcube, 
const  gsl_matrix  *  T_e2b,  gsl_vector  *  v_dcosBr,  double  *Ngrav) 


/ 


double  beta,  betal,  cl3,  c23,  c33; 


Spherical  Earth  Gravity  Torque  --------- 

//  compute  direction  cosines  of  body  axes  with  unit  radial  vector  TOWARD  earth 
gsl_blas_dgemv  (CblasNoTrans,  -1.0,  T_e2b,  v_r,  0.0,  v_dcosBr) ; 


beta 

=  g  betal/ (*rcube) 

; 

cl3 

=  gsl  vector  get  ( 

v  dcosBr, 

0) 

c23 

=  gsl  vector  get  ( 

v  dcosBr, 

1) 

c33 

betal 

=  gsl_vector  get  ( 
=  beta*c33; 

v  dcosBr, 

2) 

Ngrav [0]  =  betal  *  c23; 

Ngrav [1]  =  -  betal  *  cl 3; 

//Ngrav [2]  =0;  //  =0  b/c  of  axial  symmetry:  11=12 


Oblate  Earth  Gravity  Torque 

if  (gf_grav)  { 

double  beta2,  al,  a2,  a3,  cel3,  ce23,  ce33,  r3; 


beta2  =  g_J2re2*beta/ (*rsqr)  ; 

//  sin  of  sat  latitude  =  r3  b/c  already  unitized 
r3  =  gsl_vector_get  (v_r,  2) ; 

//  direction  cosines  of  body  axes  with  ECI  z--just  3rd  column  of  e2b  matrix 


cel3 

=  gsl 

matrix 

get 

(T 

e2b. 

0, 

2 

ce2  3 

=  gsl 

matrix 

get 

(T 

e2b. 

1, 

2 

ce33 

=  gsl 

matrix 

get 

(T 

e2b. 

2, 

2 

//  multiplicative  coefficients  for  J2  torque  correciton 
al  =  5*c33*(l  -  7*gsl_pow_2 (r3) ) ;  //  5*c33*(l  -  7sin(lat)) 

a2  =  -  10*r3; 

a3  -  -  2*ce33; 


Ngrav[0]  +=  beta2* (al*c23  +  a2*  (c23*ce33 
Ngrav[l]  -=  beta2* (al*cl3  +  a2*  (cl3*ce33 
//Ngrav [2]  +=  0; 


+  c33*ce23)  +  a3*ce23) ; 

+  c33*cel3)  +  a3*cel3) ; 

//  =0  b/c  of  axial  symmetry: 


11=12 


PROGRAM:  mag_torques 

Computes  the  body  frame  components  of  the  magnetic  torque  on  the  Lageos  satellite 
INPUTS/OUTPUTS/RETURN  VALUE: 

jd2k  -  pointer  to  JD2K  value  of  independent  variable 

rcube  -  pointer  to  computed  cube  of  the  satellite's  radius  (i.e.,  magnitude  of  v_r  cubed) 

y  -  Euler  angle  state  vector  at  time  =  jd2k 

sc_psi  -  array  containing  sin  (sc_psi[0])  &  cosine  ([1])  of  euler  angle  psi  (y[3]) 

phidsth  -  pointer  to  computed  value  of  y [5] *sin (y [1 ] ) 

phidcth  -  pointer  to  computed  value  of  y [ 5] *cos (y [1 ] ) 


224 


List  of  References 


Nmag  -  resulting  vector  (std  3  dim  array)  of  body  axis  satellite  torques 
INCLUDES/EXTERNAL  REFERENCES: 

Lincl.h  :  math.h,  gsl_blas.li,  gsl_math.h,  gsl_matrix. h,  gsl_vector.li,  M_2PI,  M_3_8PI 

-  Lprot.h  :  bspcar(),  euler_rot(),  igrf(),  jd2k_2_gha () ,  vector_cross 

Lextern.h  :  gf_mag,  gf_mfreq,  gT_b2L,  gT_b2Lrl,  gT_b2Lr2,  gT_b2Lr3,  gT_e2b,  gv_B,  gv_Bb, 

:  gv_Nmagb,  gv_work,  g_alphO,  g_clatm,  g_magcol,  g_magco2,  g_magco3,  g_magscl 
:  g_magshl,  g_mdm,  g_oblcore,  g_orb,  g_orbw,  g_SCclatm,  g_vcore 

COMMENTS : 

-  sc_psi,  phidsth,  and  phidcth  are  computed  &  returned  by  the  eom_free  routine  as  elements 
[0]  and  [2]  of  that  routine's  work  vector  argument. 

-  Three  mode  options  are  available  depending  on  the  value  of  the  global  flag  gf_mag: 

0  -  use  static  dipole  (i.e.  fixed  to  earth)  with  parameters  dipole  moment,  colatitude 
and  longitude  specified  in  input  file  (Lparams.h) 
n  -  use  IGRF2000  internal  field  model  with  spherical  harmonic  terms  up  to  order  n  (1  to  10) 
yyyy  -  use  static  dipole  fixed  at  IGRF2000  yyyy  epoch  location  (valid  range  1900-2100) 

-  model  based  on  Landau-Lif shitz  solution  for  a  spinning  sphere  in  uniform  field;  recent 
additions  attempt  to  compensate  for  the  over  generalization: 

-  account  for  orbit  frequency  as  a  linear  addition  to  torque 

-  account  for  cylinder  core  by  making  mag.  coeff  dependent  on  angle  b/w  magnetic  field  and 
cylinder  axis  (z) ;  see  Lparams.h  for  explanation 

-  scale  the  previous  correction  b/c  cylinder  coeff  are  larger  than  spherical 

-  adjust  imaginary  mag  coeff  to  account  for  shell  contribution  (redundent  w/previous) 


MODIFICATION  HISTORY: 

0210  Scott  Williams 
0211  Scott  Williams 
0211  Scott  Williams 


Separated  this  module  from  deriv()  to  run  as  a  subroutine 

Incorporated  IGRF2000  Earth  magnetic  model 

Added  parameterizations  to  improve  on  basis  LL  approach 


#def ine  R80PI  3 . 978873577297383394e-03  //  =1/80PI  4->4 ...  22209408431 

#def ine  R1680PI  1 . 8 94701703474944473e-04  //  =1/1680PI  3->3 ...  43909242110 

#define  RMEAN  6.3712e8  //  IGRF  specific  earth  mean  radius 

void  mag_torques (const  double  *jd2k,  const  double  *rcube,  const  double  *y, 

const  double  *sc_psi,  const  double  *phidsth,  const  double  *phidcth,  double  *Nmag) 

{ 

int  i; 

double  ai,  ar,  bLl,  bL3,  gha,  w,  zdotB; 
double  workl,  work2,  work3,  work4,  work [2] ; 


gha 


jd2k_2_gha (* jd2k,  0,  NULL); 


//  assumes  gf_mag  has  already  been  tested  for  valid  mode 

Use  static  dipole  with  user  specified  moment  &  location 

if  (gf_mag  ==  0 )  { 

double  alph,  rdotm,  sc_alph[2],  mdivr3  =  g_mdm/ (*rcube) ; 


alph  =  g_alph0  +  gha; 


//  angular  position  of  z  cross  m 


//  third  row  of  transformation  matrix  is  ECI  components  of  magnetic  'z'  axis,  i.e.,  m 
euler_rot(3,  g_clatm,  alph,  0,  g_SCclatm,  sc_alph,  work,  -13,  NULL,  gv_B) ; 


//  compute  magnetic  field  vector  (B)  in  ECI  frame 
gsl_blas_ddot  (gv_B,  g_orb.v_r,  & rdotm) ;  //  rhat  dot  mhat 

gsl_blas_daxpy  (-3*rdotm,  g_orb.v_r,  gv_B) ;  //  mhat  -  3  rdotm  rhat 

gsl_vector_scale  (gv_B,  mdivr3) ; 


//  -------------------  use  IGRF2000  model  -------- 

else  { 

doublereal  ra,  clat.  Ion,  Br,  Bt,  Bf,  r; 

integer  year,  nm; 

Use  spherical  harmonic  terms  up  to  order  gf_mag 
if  (gf_mag  >  0  &&  gf_mag  <=  10)  { 

year  =  2000  +  f loor ( (* jd2k) /365 .25) ; 
nm  -  gf_mag; 


Use  year=gf_mag  static  dipole  ------- 

else  { 

year  -  gf_mag; 
nm  -  1 ; 

} 

//  satellite  right  ascension  &  longitude 

ra  =  atan2 (gsl_vector_get  (g_orb.v_r,  1),  gsl_vector_get  (g_orb.v_r,  0) ) ; 
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// 


Ion  =  ra  -  gha; 

//  colatitude  of  satellite  (=  pi/2  -  declination) 
clat  =  M_PI_2  -  asin (gsl_vector_get  (g_orb.v_r,  2)); 

r  =  g_orb . r/RMEAN;  //  convert  radial  distance  to  earth  radii 

/*  get  field  components  and  convert  to  cartesian  coordinates;  IGRF  takes  discrete 
years  as  an  input  to  reduce  frequency  of  coefficient  determination;  cost  of 
fractional  year  interpolation  not  rewarded  with  significant  increase  in  accuracy  */ 
igrf(&year,  &nm,  &r,  &clat,  &lon,  &Br,  &Bt,  &Bf ) ; 

bspcar ( &clat,  &ra,  &Br,  &Bt,  &Bf,  &gv_B->data [0 ] ,  &gv_B->data [1 ] ,  &gv_B->data [2 ] ) ; 

//  convert  from  nanoTesla  (nT)  to  guass 
gsl_vector_scale  (gv_B,  1.0e-5); 


-------------  Now  use  B  to  complete  the  derivations  ------------- 

//  transform  magnetic  field  vector  to  body  frame  (Goldstein  4-46) 
gsl_blas_dgemv  (CblasNoTrans,  1.0,  gT_e2b,  gv_B,  0.0,  gv_Bb) ; 

//  oblate  spheroid  correction  (transfrom  from  body  'oblate'  to  body  'sphere') 
gsl_vector_set  (gv_Bb,  2,  g_oblcore*gsl_vector_get (gv_Bb,  2)); 

//  compute  direction  cosine  b/w  body  z  axis  and  B 

if  (g_magscl  !=  -999.0)  zdotB  =  gsl_vector_get (gv_Bb,  2)  /  gsl_blas_dnrm2 (gv_Bb) ; 

for  (i=0;  i<3;  i++)  Nmag[i]=0; 
for  (i=0;  i<=gf_mfreq;  i++)  { 

if  (i  ==  0)  { 

/*  compute  body  frame  angular  velocity  vector  &  magnitude;  store  corresponding  unit 
vector  in  3rd  row  of  gT_b2L  matrix — this  is  the  LL  z  axis 
gsl_vector_set  (&gT_b2Lr3 .vector,  0,  (*phidsth) *sc_psi [ 0]  +  y [4 ] *sc_psi [1 ] ) ; 
gsl_vector_set  (&gT_b2Lr3 .vector,  1,  (*phidsth) *sc_psi [1]  -  y [4 ] *sc_psi [0 ] ) ; 

//  third  element  includes  oblate  spheroid  correction 
gsl_vector_set  (&gT_b2Lr3 .vector,  2,  g_oblcore* ( ( *phidcth)  +  y [ 6 ] ) ) ; 
w  =  gsl_blas_dnrm2 ( &gT_b2Lr3 . vector ) ; 
gsl_vector_scale ( &gT_b2Lr3 . vector,  1 . 0/w) ; 

}  else  { 

w  -  g_orbw; 

gsl_vector_set  (&gT_b2Lr3 .vector,  0,  g_orb . sci [ 0] *g_orb . scW [0 ] ) ; 
gsl_vector_set  (&gT_b2Lr3 .vector,  1,  g_orb . sci [ 0] *g_orb . scW [1 ] ) ; 

//  incorporate  oblate  spheroid  correction 
if  (g_oblcore ! =1 . 0)  { 

//  third  element  includes  oblate  spheroid  correction 
gsl_vector_set  (&gT_b2Lr3 .vector,  2,  g_oblcore*g_orb . sci [ 1 ] ) ; 
w  *=  gsl_blas_dnrm2 (&gT_b2Lr3 .vector) ; 
gsl_vector_scale ( &gT_b2Lr3 . vector,  1 . 0/w) ; 

}  else  gsl_vector_set  (&gT_b2Lr3 .vector,  2,  g_orb . sci [ 1 ] ) ; 

} 

//  compute  LL  y  axis--omega  cross  B  (body  frame) --and  store  in  2nd  row  of  gT_b2L 
vector_cross  (&gT_b2Lr3 .vector,  gv_Bb,  &gT_b2Lr2 . vector ) ; 
workl  =  gsl_blas_dnrm2 ( &gT_b2Lr2 . vector ) ; 
gsl_vector_scale ( &gT_b2Lr2 . vector ,  1.0/workl) ; 

//  compute  LL  x  axis  from  previous  results  to  complete  the  right  handed  set 
vector_cross ( &gT_b2Lr2 . vector ,  &gT_b2Lr3 . vector ,  &gT_b2Lrl . vector ) ; 

/*  transform  magnetic  field  vector  to  LL  frame;  note  by  construction,  LL  frame  y 
y  component  of  B  is  zero  so  only  need  to  compute  x  &  z  components  */ 
gsl_blas_ddot  ( &gT_b2Lrl . vector,  gv_Bb,  &bLl) ; 
gsl_blas_ddot  ( &gT_b2Lr3 . vector,  gv_Bb,  &bL3) ; 

//  compute  coefficients  of  magnetization  (eqns  44-47) 
work4  =  sqrt(w); 

workl  =  g_magcol*work4 ;  //  2A*sqrt (2pi*sigma*w) /c 

if  (workl  <  0.035)  {  //  use  low  freq  approx 

workl  =  gsl_pow_2 (workl ) ; 
ai  =  R80PI*workl; 
ar  —  R1 680PI*gsl_pow_2 (workl) ; 

}  else  { 

work2  =  sinh (workl); 

work3  =  sqrt(1.0  +  work2*work2) ;  //  cosh(x)  is  always  positive 

sincos (workl ,  work); 
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work3  =  work3  -  work[l] ; 

work4  =  g_magco2/work4 ; 

ar  =  -M_3_8PI  +  work4*(work2 

ai  =  (g_magco3/w)  +  work4*(work2 


//  denominator  term 

-  work[0])  /  work3; 

+  work[0])  /  work3; 


/*  for  a  cylinder,  ar  &  ai  are  twice  as  big  when  B  is  perpindicular  to  the  cylinder  axis 
than  when  parallel,  apply  this  idea  to  the  spherical  coefficients  as  a  'correction'  */ 
if  (g_magscl  !=  -999.)  { 

zdotB  =  g_magfac  *  (1.0  -  0.5  *  f abs ( zdotB) ) ; 

//zdotB  =  g_magfac  *  (0.5  +  0.5  *  f abs ( zdotB) ) ; 
ar  *=  zdotB; 
ai  *=  zdotB; 

} 

//  magnetization  coefficient  adjustment  to  account  for  contribution  from  spherical  shell 
if  (g_magshl  >1.0)  ai  *=  g_magshl; 

//  compute  the  components  of  torque  in  the  LL  frame  (eqn  41) 
workl  =  g_vcore*bLl; 

gsl_vector_set (gv_work,  2,  -workl*ai*bLl) ; 
workl  *=  bL3; 

gsl_vector_set (gv_work,  0,  workl*ai) ; 
gsl_vector_set (gv_work,  1,  -workl*ar) ; 

/*  transform  components  of  torque  to  body  frame  (3rd  element  includes  oblate  spheroid 

correction,  i.e.,  transform  from  body  spherical  to  body  oblate)  */ 

gsl_blas_dgemv  (CblasTrans,  1.0,  gT_b2L,  gv_work,  0.0,  gv_Nmagb) ; 

Nmag[0]  +=  gsl_vector_get (gv_Nmagb,  0)  ; 

Nmag[l]  +=  gsl_vector_get (gv_Nmagb,  1); 

Nmag[2]  +=  gsl_vector_get (gv_Nmagb,  2 ) /g_oblcore; 


#undef  R80PI 
#undef  R1680PI 
#undef  RMEAN 


PROGRAM:  sat_posn 

Computes  Lageos '  orbital  position  given  JD2K,  a  J2000  referenced  Julian  Date  including 
fractional  day  (i.e.  JD  -  J2000) . 

INPUTS/OUTPUTS/RETURN  VALUE:  see  above 
INCLUDES/EXTERNAL  REFERENCES: 

Lincl.h  :  math.h,  gsl_poly.h,  M_2PI 
-  Lprot.h  :  euler_rot() 

Lextern.h  :  g_orb,  g_orbp, 

COMMENTS : 


Equations  based  on  extensive  data  analysis  of  NORAD  2  Line  Element  Sets  (2LES)  for  Lageos 
The  orbit  plane  angular  position  can  be  more  accurately  computed  as  the  net  angular 
position  with  respect  to  the  ascending  node  (i.e.,  M+w)  as  is  implimented  here.  However, 
mean  anomaly  is  required  as  a  proxy  for  eccentric  anomaly  which,  in  turn,  is  required 
to  determine  the  instantaneous  orbital  radius. 

M+w  is  much  better  approximated  by  a  quadratic  as  opposed  to  a  straight  line;  however,  a 
periodic  (non-secular)  error  remains.  Thus,  an  option  exists  to  include  an  additional 
sinusoidal  correction  term  to  the  M+w  calculation  for  high  accuracy  needs. 


void  sat_postn (const  double  jd2k,  struct  orb_posn  *  orb) 


*/ 


//  store  epoch  value 
orb->jd2k  =  jd2k; 


//  determine  net  angular  position  wrt  ascending  node  &  use  sin  correction  if  requested 
orb->Mw  =  gsl_poly_eval  (g_orbp.Mw,  3,  jd2k) ; 
if  (g_orbp. f_sin) 

orb->Mw  +=  g_orbp.Mw[3] *sin ( ( jd2k  +  g_orbp.Mw [5] ) *g_orbp.Mw [4 ] ) ; 
orb->rev  =  (long)  (orb->Mw) /M_2PI ; 
orb->Mw  =  fmod (orb->Mw,  M_2PI) ; 


//  determine  RAAN,  mean  anomaly,  eccentric  anomaly,  &  argument  of  perigee 

orb->W  =  gsl_poly_eval  (g_orbp.W,  2,  jd2k) ;  //  right  ascension  of  the  ascending  node 

orb->M  =  gsl_poly_eval  (g_orbp.M,  3,  jd2k) ;  //  mean  anomaly 

orb->M  =  fmod(orb->M,  M_2PI) ; 

if  (orb->M  <  0)  orb->M  +=  M_2PI; 
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orb->w  -  orb->Mw  -  orb->M; 

if  (orb->w  <  0)  orb->w  +=  M_2PI; 

orb->E  =  orb->M  +  g_orbp.e  *  sin(orb->M); 

//  compute  radius 

orb->r  =  g_orbp.a  *  (1.0  -  g_orbp.e  *  cos (orb->E) ) ; 

euler_rot (15,  g_orbp.i,  orb->W,  orb->Mw,  orb->sci,  orb->scW,  orb->scMw,  -1,  NULL,  orb->v_r) 


//* 


LTOOLS.C 


♦include  "Lincl.h" 


PROGRAM:  elapsed_time 

Computes  program  execuation  duration  in  minutes  and  seconds 
INPUTS/OUTPUTS/RETURN  VALUE:  see  above 
INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  time.h 


(including  fractional  seconds) 


void  elapsed_time (long  *eminutes,  double  *eseconds) 

{ 

long  els; 

static  unsigned  long  clpm  =  60*CLOCKS_PER_SEC; 


*eminutes  =  clock(); 

els  =  *eminutes  %  clpm; 

*eminutes  =  (*eminutes  -  els)  /  clpm; 

*eseconds  =  ((double)  els) /( (double)  CLOCKS_PER_SEC) ; 


PROGRAM:  euler_rot 

Computes  transformation  matrix  between  reference  frames  related  by  Euler  angle  rotations, 
designated  respectively  as  'fixed'  and  'rotated.'  Routine  actually  has  two  products: 

1)  computation  and  return  (if  necessary)  of  sin  &  cos  of  the  euler  angles 

2)  the  transformation  matrix  FROM  the  fixed  TO  the  rotated  frames:  v_rot  =  T_tr*v_fix 
***  orthogonal  transformation  so  the  inverse  is  the  transpose:  v_fix  =  T_tr'*v_rot 

See  comments  below  for  options  in  handling  these  products 
INCLUDE S/ NON  ANSI :  math.h,  gsl_matrix . h,  FLAG,  sincosO 
COMMENTS : 


3,  5,  6,  10,  &  15 
cos  are  already  known 


f_mode  specifies  whether  it  is  necessary  to  compute  sin  &  cos  of  each  angle  as  follows 
if  2  divides  f_mode  then  compute  sin  &  cos  of  th 

if  3  divides  f_mode  then  compute  sin  &  cos  of  phi 

if  5  divides  f_mode  then  compute  sin  &  cos  of  psi 

NOTES:  -  all  possible  combinations  are  achieved  with  f_modes  0,  1, 

-  it's  not  necessary  to  provide  the  angles  themselves  if  sin 
f_trans  specifies  output  options  for  the  transformation  matrix: 

0  =  do  not  compute 

4  =  compute  entire  matrix  T_tr  s.t.  v_rot  =  T_tr*v_fix 

+i  =  compute  only  ith  column  of  T_tr  (corresponds  to  T_tr*ei,  ei  is  the  ith  basis  vector) 
-i  =  compute  only  ith  row  of  T_tr  (corresponds  to  ei'*T_tr) 

1*  =  prepending  the  value  with  1  (i.e.,  14,  +li,  -li)  will  perform  the  same  computations 
under  the  assumption  psi  =  0 


void  euler_rot (const  FLAG  f_mode,  const  double  th,  const  double  phi,  const  double  psi, 
double  *sc_th,  double  *sc_phi,  double  *sc_psi,  const  FLAG  f_tr, 
gsl_matrix  *  T_tr,  gsl_vector  *  v_tr) 

{ 

double  workl; 


//  compute  sine  &  cosine  of  Euler  Angles  if  necessary 

if  (f_mode  ==  0)  {  //  most  used  case  -  isolate  to  speed  up 

sincos(th,  sc_th) ; 
sincos(phi,  sc_phi) ; 
sincos(psi,  sc_psi) ; 

}  else  if  (f_mode  !=  1)  { 

if  (!(f_mode  %  2))  sincos(th,  sc_th) ; 
if  (!(f_mode  %  3))  sincos(phi,  sc_phi) ; 
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// 


if  (!(f_mode  %  5))  sincos(psi,  sc_psi) ; 

} 


//  compute  transformation  matrix  from  fixed  to  rotated  frame  if  necessary 
switch  (f_tr) 


case  0:  break; 
case  4:  { 

workl  -  sc 
gsl_matrix 
gsl_matrix 
gsl_matrix 
workl  -  sc 
gsl_matrix 
gsl_matrix 
gsl_matrix 
gsl_matrix 
gsl_matrix 
gsl_matrix 
break;  } 
case  1:  { 

workl  -  sc 
gsl_vector 
gsl_vector 
gsl_vector 
break;  } 

case  2:  {  //  compute  2nd  column  only 

workl  =  sc_th [1 ] *sc_phi [1 ]  ; 


//  compute  entire 
th [ 1 ] *  sc_phi [ 0 ] ; 
set  (T_tr,  0,  0, 

set  (T_tr,  1,  0,  - 

set  (T_tr,  2,  0, 

th [ 1 ] *  sc_phi [ 1 ] ; 
set  (T_tr,  0,  1, 

set  (T_tr,  1,  1,  - 

(T_tr, 

(T_tr, 

(T_tr, 

(T_tr, 


_set 

_set 

_set 

set 


2, 

0, 

1, 

2, 


matrix 

sc_psi [1 ] *sc_phi 
sc_psi [0 ] *sc_phi 
sc_th [0] *sc_phi [ 

sc_psi [1 ] *sc_phi 
sc_psi [0 ] *sc_phi 
sc_th [0] *sc_phi [ 
sc_th [0] *sc_psi [ 
sc_th [0] *sc_psi [ 
sc_th [ 1 ] ) ; 

T  tr*e 


[1] 

[1] 

0]); 

[0] 
[0] 
1]  )  ; 
0]); 
1] ) ; 


workl* sc_psi 
workl*sc_psi 

workl* sc_psi 
workl*sc_psi 


[0]) 

[1]) 


[0]) 

[1]) 


//  compute  1st  column  only: 
th [ 1 ] *  sc_phi [ 0 ] ; 

set  (v_tr,  0,  sc_psi [1] *sc_phi [1] 
set  (v_tr,  1,  -sc_psi [0] *sc_phi [1] 
set  (v_tr,  2,  sc_th [0 ] *sc_phi [0 ] ) ; 

T  tr*e2 


-  workl*sc_psi [ 0] ) 

-  workl*sc_psi [1] ) 


gsl_vector 

set  i 

(v_tr. 

0, 

sc_psi[l]*sc  phi[0] 

+  workl *sc_psi [0] 

gsl  vector 

set  i 

(v_tr. 

1, 

-sc_psi [ 0] *sc  phi[0] 

+  workl*sc  psi[l] 

gsl  vector 
break;  } 

set  i 

(v_tr. 

2, 

-sc_th[0]*sc  phi[l]); 

case  3:  { 

//  compute 

3rd 

column  only:  T  tr*e3 

gsl  vector 

set  i 

(v_tr. 

0, 

sc_th[0]*sc  psi[0]); 

gsl  vector 

set  i 

(v_tr. 

1, 

sc  th[0]*sc  psi[l]); 

gsl_vector 
break;  } 

set  i 

(v_tr. 

2, 

sc_th [ 1 ] ) ; 

case  -1 :  { 

//  compute 

1st 

row  only:  el'*T  tr 

workl  -  sc 

_th  [1  ] 

*sc  psi  [0 ] ; 

gsl_vector 

set  i 

(v_tr. 

0, 

sc  psi[l]*sc  phi[l]  - 

workl*sc  phi [0 ] ) 

gsl  vector 

set  i 

[v_tr. 

1, 

sc  psi[l]*sc  phi[0]  + 

workl*sc  phi[l]) 

gsl  vector 
break;  } 

set  i 

(v_tr. 

2 , 

sc_th[0]*sc  psi[0]); 

case  -2  :  { 

//  compute 

2nd 

row  only:  e2 ' *T  tr 

workl  -  sc 

_th  [  1  ] 

*sc  psi [1 ] ; 

gsl  vector 

set  i 

(v_tr. 

0, 

-sc_psi [ 0] *sc  phi[l] 

-  workl*sc  phi[0] 

gsl  vector 

set  i 

(v_tr. 

1, 

-sc_psi [ 0] *sc  phi[0] 

+  workl*sc  phi[l] 

gsl_vector 
break;  } 

set  i 

(v_tr. 

2, 

sc_th[0]*sc  psi[l]); 

case  -3:  { 

//  compute 

3rd 

row  only:  e3'*T  tr 

gsl  vector 

set  i 

(v_tr, 

0, 

sc_th[0]*sc  phi[0]); 

gsl_vector 

set  i 

(v_tr. 

1, 

-sc_th[0]*sc  phi[l]); 

gsl  vector 
break;  } 

set  i 

(v_tr. 

2, 

sc_th [1 ] ) ; 

**  Same  as  above 
case  14:  { 

gsl_matrix_ 
gsl_matrix_ 
gsl_matrix_ 
gsl_matrix_ 
gsl_matrix_ 
gsl_matrix_ 
gsl_matrix_ 
gsl_matrix_ 
gsl_matrix_ 
break;  } 
case  11:  { 

gsl_vector_ 
gsl_vector_ 
gsl_vector_ 
break;  } 
case  12 :  { 

gsl_vector_ 
gsl_vector_ 


but  with  assumption  psi=0 
//  compute  entire  matrix 


set 

set 

set 

set 

set 

set 

set 

set 

set 


(T_tr, 

(T_tr, 

(T_tr, 

(T_tr, 

(T_tr, 

(T_tr, 

(T_tr, 

(T_tr, 

(T_tr, 


sc_phi [1 ] ) ; 
-sc_th [1] *sc_phi [ 
sc_th [0] *sc_phi [ 
sc_phi [0 ] ) ; 
sc_th [1] *sc_phi [ 
-sc_th [0] *sc_phi [ 
0)  ; 

sc_th [ 0] ) ; 
sc_th [ 1 ] ) ; 


0]); 

0]); 

1]); 
l] ) ; 


//  compute  1st  column  only:  T_tr* 
set  (v_tr,  0,  sc_phi[l]); 
set  (v_tr,  1,  -sc_th [1 ] *sc_phi [0 ] ) 
set  (v_tr,  2,  sc_th [0 ] *sc_phi [0 ] ) 


//  compute  2nd  column  only:  T_tr*e2 
set  (v_tr,  0,  sc_phi[0]); 

set  (v_tr,  1,  sc_th [1 ] *sc_phi [1 ] ) ; 
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gsl_vector 
break;  } 
case  13:  { 

gsl_vector 
gsl_vector 
gsl_vector 
break;  } 
case  -11:  { 

gsl_vector 
gsl_vector 
gsl_vector 
break;  } 
case  -12:  { 

gsl_vector 
gsl_vector 
gsl_vector 
break;  } 
case  -13:  { 


gsl_vector 
gsl_vector 
gsl_vector 
break;  } 


set 

// 

set 

set 

set 

// 

set 

set 

set 

// 

set 

set 

set 

// 

set 

set 

set 


(v_tr,  2,  -sc_th [0 ] *sc_phi  [1 ] ) ; 

compute  3rd  column  only:  T_tr*e3 
(v_tr,  0,0); 

(v_tr,  1,  sc_th[0]); 

(v_tr,  2,  sc_th[l]); 

compute  1st  row  only:  el'*T_tr 
(v_tr,  0,  sc_phi[l]); 

(v_tr,  1,  sc_phi[0]); 

(v_tr,  2,  0)  ; 

compute  2nd  row  only:  e2'*T_tr 
(v_tr,  0,  -sc_th [1 ] *sc_phi [0 ] ) ; 
(v_tr,  1,  sc_th [1 ] *sc_phi [1 ] ) ; 
(v_tr,  2,  sc_th[0]); 

compute  3rd  row  only:  e3'*T_tr 
(v_tr,  0,  sc_th [0 ] *sc_phi [0 ] ) ; 
(v_tr,  1,  -sc_th [0 ] *sc_phi [1 ] ) ; 
(v_tr,  2,  sc_th[l]); 


PROGRAM:  expcat 

Catenates  a  double  in  exponential  format  to  remove  extra  zero  digits  from  the  exponent, 
base  is  the  return  value  and  the  exponent  is  stored  in  the  integer  exp. 
INPUTS/OUTPUTS/RETURN  VALUE:  see  above 
INCLUDES/EXTERNAL  REFERENCES: 

Lincl.h  :  stdio.h,  string. h,  stdlib.h 
COMMENTS : 


double  expcat (double  x,  int  *expn) 


The 


-k  -k  -k  -k  J 


char  str[30],  *strptr; 

sprintf (str, "% . 16e" ,  x)  ; 
strptr  =  strpbrk  (str,  "e"); 
*strptr  =  ' \ 0 ' ; 
strptr  +=  1; 

*expn  =  atoi (strptr) ; 
return  strtod  (str,  &strptr) ; 


PROGRAM:  jd2k_2_gha 

Computes  time  of  day  Greenwich  Hour  Angle  given  JD2K  -  a  J2000  referenced  Julian  Date 
including  fractional  day  (i.e.  JD  -  J2000) .  Optionally  returns  GHA  at  Oh  as  well  (f_gh0!=0) 
INPUTS/OUTPUTS/RETURN  VALUE:  see  above 
INCLUDES/EXTERNAL  REFERENCES: 

Lincl.h  :  math.h,  FLAG,  RPJS 


COMMENTS : 

Direct  source:  T.S.  Kelso,  "Orbital  Coordinate  Systems,  Part  II,"  Satellite  Times, 
www.celestrak.com;  Original  source:  Explanetory  Supplement  to  the  Astronomical  Almanac. 


#def ine  RPJS  7 . 27220521 6643039904e-05  //  =2PI/86400  4->3 ...  84871153537 

#def ine  FACT  8 . 663655536697 600000e04  //  =86400*1.00273790934 

double  j d2k_2_gha (const  double  jd2k,  const  FLAG  f_gh0,  double  *gh0) 


/ 


double  ut,  tu,  gha; 
ut  =  jd2k+0.5; 

ut  =  ut  -  floor (ut);  //  fractional  part  of  day  from  Oh 

tu  =  jd2k  -  ut;  //  JD2K  at  Oh  of  jd2k 

/*  tu  =  tu/36525;  //  Julian  Centuries  from  J2000  to  Oh  jd2k 

gha  =  24110.54841  +  tu* (8 640184 . 812866  +  tu*(0. 093104  -  6.2e-6*tu)); 
divided  poly  coefficients  by  powers  of  36525  to  eliminate  unneccessary  flop 

*/ 

gha  =  24110.54841  + 

tu* (236.55536790872  +  tu* (6 . 978 914707327780e-ll  -  1 . 2723922513927221e-l 9*tu) ) ; 
if  (f_gh0)  *gh0  =  RPJS*fmod (gha, 86400) ; 
gha  =  gha  +  FACT*ut; 


230 


List  of  References 


gha  =  RPJS*fmod (gha, 86400) ; 
return  gha; 


#undef  RPJS 
#undef  FACT 

PROGRAM:  sincos 


Computes  sine  (sc_x[0])  and  cosine  (sc_x[l]) 
INPUTS/OUTPUTS/RETURN  VALUE:  see  above 
INCLUDES /EXTERNAL  REFERENCES: 


Lincl.h  :  math.h,  gsl_math.h,  M_2PI 


of  an  angle 


using  only  one  trig  evaluation 


void  sincos (double  x,  double  *sc_x) 

{ 


/ 


if  (x  >  M_2PI  | |  x  <  -M_2PI)  x  =  fmod(x,  M_2PI); 
sc_x [1]  =  cos (x) ; 

sc_x[0]  =  sqrt(1.0  -  gsl_pow_2 (sc_x [1 ] ) ) ; 

if  (x  >  M_PI  ||  (x  <  0  &&  x  >  -M_PI))  sc_x[0]  =  -sc_x[0]; 


PROGRAM:  vector_cross 

Computes  the  cross  product  of  gsl  type  vectors 
INPUTS/OUTPUTS/RETURN  VALUE:  see  above 
INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  math.h,  gsl_vector.h 


a  &  b  and  returns  gsl  type  vector  c  =  a  x  b 


void  vector_cross (const  gsl_vector  *  a,  const  gsl_vector  *  b,  gsl_vector  *  result) 

{ 

gsl_vector_set (result,  0, 

gsl_vector_get (a, 1) *gsl_vector_get (b, 2)  -  gsl_vector_get (a, 2) *gsl_vector_get (b, 1) ) ; 
gsl_vector_set (result,  1, 

gsl_vector_get (a, 2) *gsl_vector_get (b, 0)  -  gsl_vector_get (a, 0) *gsl_vector_get (b, 2) ) ; 
gsl_vector_set (result,  2, 

gsl_vector_get (a, 0) *gsl_vector_get (b, 1)  -  gsl_vector_get (a, 1) *gsl_vector_get (b, 0) ) ; 


/ 


//* 


LPARAMS.H 


Lparams.h  is  the  'control  center'  for  the  Lageos  spin  model.  All  input  data  of  consequence 
is  defined  here  (with  references  to  the  routines  that  make  use  of  the  values) .  This  includes 
integrator  control  parameters,  physical  and  mathematical  constants  describing  satellite 
properties  and  the  space  environment,  and,  of  course,  the  initial  system  state. 

- */ 

#define  TITLE  "Lageos  Spin  Dynamics  Model  Version  5.0\0" 
tdefine  DESCR  "Data  Analysis\0" 

#define  INSRC  "Program  Defaults\0" 


/*~' - - - integrator  control  &  variable  conditioning - - - 

General  control  parameters  for  lageos_spin_xx ()  driver  routines  in  lmain.c.  Usage  of  these 
parameters  varies  with  the  integration  routine;  some  values  may  not  be  (explicitly)  used 
by  a  given  routine. 


#def ine 

TINY 

1.0e-30 

// 

#def ine 

HMIN 

5. Oe-16 

// 

#def ine 

_NVAR 

6 

// 

#def ine 

RTOL 

1.0e-12 

// 

#def ine 

ATOL 

GSL  DBL  EPSILON 

// 

#def ine 

START 

-2826.333206 

// 

// 

#def ine 

STOP 

-2240.446528 

// 

#def ine 

HI 

HMAX 

// 

#def ine 

HMAX 

100.0 

// 

#def ine 

MAXSTP 

LONG  MAX 

// 

#def ine 

RESET 

1 . 0e7 

// 

safety  factor  -  prevents  divide  by  zero 
minimum  relative  step  size  allowed 
number  of  dependent  variables 
relative  error  tolerance 
absolute  error  tolerance 

Start  time  reference  date  (JD2K,  i.e.,  JD  -  J2000) 
-2712.420775  =  29  Jul  02  @  01:54:05Z 
Stop  time  reference  date  (JD2K) 
initial  integration  step  size  (s) 

max  step  size  (s)  allowed;  13.5~1/1000  orbit:  rel  dB  < 
max  number  of  integration  steps 

max  value  (s)  of  local  indep  variable  b4  reset  to  zero 


2% 


/ 
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#def ine  PHIMOD  4 
#def ine  PSIMOD  4 


//  modulo  euler  angle  phi  to  [0, 
//  modulo  euler  angle  psi  to  [0, 


PHIMOD*2pi] 
PSIMOD*2pi ] 


- - - ~ - -  data  set  generation  &  output  control  — - 

2  modes  are  available  for  data  set  generation: 

-  "Recurrent"  writes  data  sets  to  output  files  on  the  periodic  interval  SAVE;  SAVE=0  disables 
this  option,  though  the  initial  and  final  data  sets  are  always  written  to  the  output  files. 

-  "targeted"  generates  data  sets  per  FOUT  at  the  specific  JD2K  times  listed  in  0UT1...0UT5; 
the  sets  are  stored  in  internal  arrays  by  default  (e.g.  to  interact  w/external  routines) 
FOUT:  0=disabled,  l=write  to  files,  2=internal  store  only  (no  file  write  ) 

IMPORTANT:  to  compile,  0UT1...0UT6  must  be  non-empty  and  _NOUT  must  always  equal  their  total 
number  of  values,  even  if  FOUT=0 . 

IMPORTANT2 :  In  the  output  files,  all  angular  measures  are  in  degrees;  however,  the  internal 
storage  for  targeted  outputs  keeps  angles  in  radians 
- */ 


# define  SAVE 
#define  FOUT 
#define  _NOUT 
#define  OUT1 
tdefine  OUT2 
#define  OUT3 
#define  OUT4 
#define  OUT5 
#define  OUT6 


0.0  //  "recurring"  data  output  interval  ( JD2K) ,  0  for  none 

0  //  "targeted"  data  output  times  flag  (see  above) 

32  //  number  of  target  output  times  listed  below  (size  of  array) 

-4110.109722,-4040.265278, -3783.213194,-2826.333206, -2772.093322 
-2769. 118056,-2761 .291470, -2758.314155,-2712.420775, -2678.446690 
-2650.489155,-2647.443750, -2 642 . 493750 , -2633 . 503472 , -2 625 . 52 6389 
-2443.370139,-2439.306250, -2430.370139,-2404.369444,-2359.197917 
-2299.422222,-2268.318750, -2241.531944,-2240.446528,-1771.164583 
-1755.327083,-1732.318056, -1284 . 500000 , -1172 . 500000, 0 . 0, 0 . 6437 99, 25000 


/* - - - -  model  implementation  option  switches - — ' - - - 

Flags  to  specify  usage  of  specific  model  components/options 


tdefine  _FOPT  0 

#def ine  DRIVER  3 

#def ine  FETASIN  0 

#def ine  FGRAV  1 

#define  FMAG  3 

#def ine  FMFREQ  1 


/*  parameter  optimization  :  0=std  data  run;  l=param  opt;  2=std+opt 
/*  lageos_spin_xx ( )  :  0=_nr  bs;  l=_nr  bd;  2=_rk;  3=_de 

Note:  _de  not  recommended  w/ small  values  of  RESET;  see 
lageos_spin_de ()  header  comments 

/*  Orbit  model  net  angular  position  option  flag:  Use  high  accuracy 
sinusoidal  correction  for  M+w?  0=no,  else  yes 
/*  Gravity  model  option  flag:  Include  1st  zonal  term  (J2)  in  torque 
calculation?  0=no,  else  yes 
/*  Magnetic  model  option  mode  flag: 

0  =  use  static  dipole  given  by  MDM,  CLATM,  &  LONM  below 

yyyy  =  use  year  yyyy  static  dipole  from  IGRF2000  (1965  to  2005) 
1...10  =  use  IGRF  model  with  spherical  harmonic  terms  up  to  order 
FMAG;  i.e.,  l=dipole,  2=quadrupole,  3=octupole, . . . ; 

/*  Specifies  whether  to  include  orbit  frequency  in  computation  of 
magnetic  torque  (as  an  additive  correction) :  0-no;  else  yes 


/ 

/ 

/ 

/ 

/ 


/ 

/ 


/*~~~ - physical/geophysical  (Earth)  constants  and  parameters - - - — - - - — 

Cl,  GM,  J2,  RE,  and  RFLAT  taken  from  IERS  Conventions  2000  (draft) .  The  mean  earth  radius 
(derived  from  RE  &  RFLAT)  and  the  IGRF  2000  magnetic  model  are  used  to  generate  a  dipole 
approximation  (MDM,  CLATM,  LONM)  for  1995;  see  FMAG  comments  above. 


#define  Cl 
#define  GM 
#define  J2 
#define  RE 
//tdefine  RFLAT 
#define  MDM 
#define  CLATM 
tdefine  LONM 


2. 99792458el0 
3. 986004418e20 
1 . 0826359e-3 
6 . 3781366e8 
298.25642 
7 . 8115998e25 
10.7044330 
-71.4068205 


//  speed  of  light  (cm/s) 

//  mass  of  the  earth  times  G  (cmA3/sA2) 

//  1st  order  oblate  earth  zonal  coefficient 
//  equatorial  radius  of  the  earth  (cm) 

//  reciprocal  earth  flattening  coefficient  (i.e.  =  1/f) 
//  earth  magnetic  dipole  moment  (gauss*cmA3) 

//  co-latitude  (pi/2  -  lat)  of  magnetic  dipole  (deg) 

//  longitude  of  magnetic  dipole  (deg) 


/ 


- - - - - - - - —  satellite  orbit  parameters - - - - - - - 

These  parameters  describe  Lageos'  orbital  motion.  The  elements  were  derived  from  the  NORAD 
2  Line  Element  Sets  (2LES)  for  Lageos  1  dating  back  to  1980.  The  regularity  of  Lageos'  orbit 
makes  for  very  stable  orbit  elements,  however,  they  are  not  technically  constant.  Various 
regression  techniques  were  used  to  obtain  'best  fit'  functions  to  the  data.  The  results 
lead  readily  to  choices  for  constants  as  approximations.  The  current  data  set  was  derived  as 
follows : 

-  Orbit  semi-major  axis  (A)  -  derived  from  mean  motion  using  Kepler's  equations 

-  Eccentricity  (ECC)  -  mean  value  of  all  historic  data 

-  Inclination  (INC)  -  mean  value  of  >=1990  periodic  data 

-  Orbital  Precession  (RAAND,  RAAN0)  -  linear  model 

-  angular  position  (ETA..)  :  quadratic  model  with  optional  sinusoidal  correction  (for 
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high  accuracy);  Note:  eta  =  mean  anomaly  +  argument  of  perigee 
-  Mean  Anomaly  (M..)  :  quadratic  model;  Note  -  only  used  to  compute  instantaneous  radius; 


M+w 

gives 

a  more  accurate  angular 

position 

#def ine 

A 

1 . 227119174e9 

// 

semi- 

major  axis  of  the  orbit  (cm) 

#def ine 

ECC 

0.0044319 

// 

eccentricity  of  orbit 

#def ine 

INC 

109.84188 

// 

inclination  of  orbit  (deg) 

#def ine 

RAANO 

109.051226 

// 

J2000 

right  ascension  of  ascending  node  (deg) 

#def ine 

RAAND 

0.3425558365501 

// 

orbital  precession  rate  (deg/JD) 

#def ine 

ETAO 

319.420422218739 

// 

Quad: 

J2000  satellite  angular  position 

(deg) 

#def ine 

ETAD 

2298.97906232758 

// 

Quad: 

net  angular  motion  of  satellite 

(deg/JD) 

#def ine 

ETADD 

1.7723687051 32 98 e- 7 

// 

Quad: 

angular  acceleration  (deg/JDA2) 

#def ine 

ETAM 

2. 56071177510377 e-2 

// 

Sin  : 

magnitude  (deg) 

#def ine 

ETAA 

0.23527273308971 

// 

Sin  : 

amplitude  (deg) 

#def ine 

ETAT 

1061.46420515695 

// 

Sin  : 

period  (JD) 

#def ine 

ETAP 

291.566705595897 

// 

Sin  : 

phase  shift  (JD) 

#def ine 

MO 

107.570967400446 

// 

Quad: 

J2000  Mean  Anomaly  (deg) 

#def ine 

MD 

2299.19307317095 

// 

Quad: 

Mean  motion  term  (deg/JD) 

#def ine 

MDD 

1. 70332256743677 e- 7 

// 

Quad: 

acceleration  term  (deg/JDA2) 

z* . . 

_ 

satellite  parameters - - - 

- - - 

These  parameters  define  the  satellite  properties  for  the  model. 

RCORE,  SIGC  -  define  the  reference  homogeneous  metallic  spheroid  for  the  purpose  of 

modelling  magnetic  torques.  The  reference  spheroid  is  intended  to  approximate 
only  the  effects  induced  on  the  cylindrical  core  of  Lageos . 

FLATC  -  added  as  of  v4 . 1  to  allow  the  core  to  be  modeled  as  an  oblate  spheroid 

rather  than  purely  spherical.  It  should  be  noted  that  the  implimentation 
is  somewhat  crude  and  is  intended  only  to  parameterize  the  gap  between  the 
purely  spherical  Landau-Lif shitz  development  and  the  true  cylindrical  core; 
better  is  the  implementation  in  MCSCL  below.  The  transformation  is  simply  a 
scaling  of  the  z  components  of  B,  w,  and  (inversely)  the  resulting  N  by  the 
ratio  of  the  polar  to  equatorial  radius  of  the  spheroid. 

MCSCL  -  the  magnetization  coefficients  for  a  cylinder,  ar  &  ai,  are  twice  as  big 

when  B  is  perpindicular  to  the  cylinder  axis  (z)  as  when  parallel;  this  idea 
is  adapted  to  the  spherical  magnetization  coefficients  of  the  current  model 
as  a  'correction'.  The  relative  scaling  is  done  as  a  function  of  the 
direction  cosine  between  the  body  z-axis  and  the  magnetic  field.  The  ratios 
are  fixed  but  there  is  still  freedom  to  choose  the  absolute  scaling  (MCSCL) 
of  the  coefficients. 

Implementation : 

ar'  =  MCSCL* (1-0. 5  |z  dot  B | ) ar  ==>  0.5*MCSCL  <=  ar'  <=  MCSCL 

ai'  =  MCSCL* (1-0. 5  |z  dot  B | ) ai  ==>  0.5*MCSCL  <=  ai'  <=  MCSCL 

where  ar  and  ai  are  the  "pure"  spherical  versions  of  the  magnetization 
coefficients.  The  realtive  range  of  the  scaled  coefficients  is  shown  with 
the  minimums  occuring  when  B  parallel  to  z  (cylinder  axis)  and  maximums 
when  B  perpindicular  to  z.  To  turn  this  feature  off,  set  MCSCL  =  -999.  To 
ensure  the  "pure"  values  are  attained  for  some  |z  dot  B|,  use  values  b/w 
1  and  2.  Also  interesting,  the  low  frequency  cylindrical  coefficients  scale 
to  ~2 . 5  times  those  for  the  sphere  so  this  is  another  interesting  value  to 
use . 

MCSHL  -  A  first  order  approximation  of  the  additional  magnetic  torque  from  the  shell 

leads  to  an  expression  for  net  magnetic  torque  identical  to  the  that  of  the 
core  except  with  instances  of  V*ai  replaced  with  V*ai  +  k*w  where  w  is  the 
angular  frequency  and  k  is  a  NON-NEGATIVE  constant  that  depends  on  Vs  (volume 
of  shell)  and  electromagnetic  props. 

It  is  reasonable  to  write  k*w  =  mu*Vs*ais  where  mu  a  positive  proportionality 
constant  and  ais  is  the  imag  magnetic  coefficient  of  the  shell.  With  a  little 
algebra,  the  problem  reduces  to  an  additional  scaling  of  the  imaginary  mag. 
coeff,  i.e.,  ai  ->  (1  +  MCSHL) *ai  and  MCSHL  is  proportional  to  (Vs/V) * (ais/ai) 

Further,  a  separate  calculation  (based  on  the  Landau-Lif shits  solutions)  shows 
the  mag  coeff  of  the  shell  agree  with  the  expression  for  the  mag  coeff  of  the 
core  with  one  additional  term  (that  is  extremely  messy  so  doesn't  lead  to  a 
usable  form) .  Thus  ais/ai  =  1  +/-  mu'  and  mu'  will  depend  on  the  respective 
dimensions  and  effective  conductivities.  Given  the  uncertainties  about  the 
current  flow  in  the  shell,  this  is  a  very  'loose'  parameter  but  it  is  not  a 
forgone  conclusion  that  mu  should  be  small . 
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NOTE:  This  factor  is  basically  redundent  with  MCSCL  above  and  that  is 
favored  for  the  additional  dynamics  it  includes. 

II  &  13  -  are  the  principle  moments  of  the  Lageos  satellite.  Common  values  in  the 

literature  are  1.271e8  and  1.314e8  respectively,  though  modest  deviations 
from  these  values  for  optimal  performance  is  expected. 


TUAG  -  is  a  optional  scaling  factor  for  the  computed  gravitational  torques;  this 

factor  allows  'tweaking'  of  model  for  possibly  better  results.  Values  of 
TAUG  =  1  +  /-  eps  (something  small)  are  reasonable.  This  may  be  particularly 
useful  as  a  low  cost  substitute  for  the  oblate  earth  J2  term  which  scales 
(more  or  less)  as  a  small  multiple  of  the  primary  term.  For  paramter 
optimization,  however,  it  is  probably  better  to  vary  II  and  13  and  leave 
this  set  to  1.  (Ed.  Note:  this  tweak  largely  unused) 


#def ine 

RCORE 

23.5339 

// 

#def ine 

SIGC 

1 . 0el7 

// 

#def ine 

FLATC 

0 

// 

#def ine 

MCSCL 

2.4970 

/* 

// 

#def ine 

MCSHL 

0.0 

// 

#def ine 

11 

1.27  97  8e8 

// 

#def ine 

13 

1 . 30701e8 

// 

#def ine 

TAUG 

1.0 

// 

_ _ 

_ _ 

_ _ 

(1/s) 


(see  above) 


core  flattening  coefficient  =  1  -  Rp/Re 
scaling  factor  for  magnetization  coefficients 
MCSCL  =  -999  to  disable  (other  neg  values  force 
spherical  shell  correction  factor  (see  above) ; 
transverse  moment  of  inertia  (g  cmA2) 


initial  spin  state  - — - - - - - - - - - 

Spin  state  at  time  =  START.  Values  were  derived  from  Avizonis'  empirical  'flash'  data;  the 
arguments  represent  the  classic  Euler  Angles  relating  the  body  frame  to  the  inertial  frame; 
at  the  current  epoch,  Lageos'  angular  velocity  is  nearly  pure  axial  and  so  the  transvers 
rates  (THETAD,  PHID)  can  be  considered  negligeable  without  loss  of  generality 


/ 


/ 


/ 


/ /-2826 . 
#def ine 

.333206 

THETA 

165.70 

// 

deg 

#def ine 

PHI 

3.56 

// 

deg 

#def ine 

PSI 

0.0 

// 

deg 

#def ine 

THETAD 

le-16 

// 

deg/s 

#def ine 

PHID 

le-16 

// 

deg/s 

#def ine 

PSID 

3.07640 

// 

deg/s 

/* 

//-2439. 306250 


#def ine 

THETA 

162.90 

// 

deg 

#def ine 

PHI 

178.98 

//  deg 

#def ine 

PSI 

0.0 

// 

deg 

#def ine 

THETAD 

le-16 

// 

deg/s 

#def ine 

PHID 

le-16 

// 

deg/s 

#def ine 

PSID 

2.15827 

// 

deg/s 

/ /-2678 . 
#def ine 

.446690 

THETA 

170.67 

// 

deg 

#def ine 

PHI 

90.36 

// 

deg 

#def ine 

PSI 

0.0 

// 

deg 

#def ine 

THETAD 

le-16 

// 

deg/s 

#def ine 

PHID 

le-16 

// 

deg/s 

#def ine 

PSID 

2.69865 

// 

deg/s 

//-2712 . 
#def ine 

.420775 

THETA 

170.60 

// 

deg 

#def ine 

PHI 

44.32 

// 

deg 

#def ine 

PSI 

0.0 

// 

deg 

#def ine 

THETAD 

le-16 

// 

deg/s 

#def ine 

PHID 

le-16 

// 

deg/s 

#def ine 

PSID 

2.80003 

// 

deg/s 

/ /-27  69 . 
#def ine 

.118056 

THETA 

166.86 

// 

deg 

#def ine 

PHI 

34.78 

// 

deg 

#def ine 

PSI 

0.0 

// 

deg 

#def ine 

THETAD 

le-16 

// 

deg/s 

#def ine 

PHID 

le-16 

// 

deg/s 

#def ine 

PSID 

2.94046 

// 

deg/s 
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Numerical  Routines 


LDOP853.C  &  LDOP853.H-  external  package;  see  |iii]. 


LSHODE.F  -  external  package;  see  [iv]. 


LNR  C.C  -  external  package  (see  [ii])  but  customized 


♦include  "Lincl.h" 


♦define 

IMAX 

11 

// 

used 

in 

bsstep 

♦define 

NUSE 

7 

// 

used 

in 

bsstep  &  rzextr 

♦define 

SHRINK 

0.95 

// 

used 

in 

bsstep 

♦define 

GROW 

1.2 

// 

used 

in 

bsstep 

//  Counting  number  of  derivative  function  calls  .  .  . 
static  unsigned  long  nfcn; 
unsigned  long  f cncntRead (void) 

{ 

return  nfcn; 

} 

void  fcncntReset (void) 

{ 

nfcn  -  0; 


PROGRAM:  bsstep 

Uses  a  modified  Burlisch-Stoer  extrapolation  approach  to  advance  a  vector  of  dependent 
variables  a  single  step  (y(x)  to  y(x+hdid))  while  monitoring  local  truncation  error  to 
ensure  accuracy  and  adjust  step  size.  An  estimate  for  the  next  step  to  be  taken  is  also 
generated. 

INPUTS/OUTPUTS/RETURN  VALUE: 

--------  ***  all  vectors  are  assumed  unit  offset;  range  [1.. .nvar]  ***  --------- 

y  -  vector  of  dependent  variables  at  xx;  replaced  with  new  values  on  output 

dydx  -  vector  of  derivatives  of  y  at  xx 

nv  -  length  of  the  vectors 

xx  -  value  of  independent  variable;  replaced  with  new  value  on  output 

h  -  the  step  of  the  indpendent  variable  to  be  attempted 

hdid  -  the  step  of  the  indpendent  variable  actually  accomplished 

hnext  -  estimate  of  the  next  step  size  to  take 

eps  -  relative  error  tolerance 

yscal  -  vector  against  which  error  is  scaled 

derivs  -  user  supplied  function  that  computes  the  derivatives  (3rd  argument)  of  the  dependent 
variables  (2nd  argument)  at  a  specified  value  of  the  independent  variable  (1st 
argument) 

INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  math.h 

-  Lprot.h  :  lageos_error ( ) ,  mmid(),  rzextr () 

Lintgr8 . c  :  GROW,  IMAX,  NUSE,  SHRINK 
COMMENTS : 


Adapted  from  Numerical  Recipes  in  C,  2nd  Ed.,  pp  728-730;  taylored  to  fit  current  problem. 
The  approach  used  is  from  the  family  of  extrapolation  methods.  Original  NR  code  used 
adaptive  stepsize  control  scheme  suggested  by  Deuflhard;  this  adaptation  uses  a  simpler 
method  similar  to  that  originally  proposed  by  Bulirsch  &  Stoerr  when  they  introduced  the 
extrapolation  approach. 

In  the  world  of  ODE  methods,  Runge-Kutta  approaches  seem  to  be  more  generally  favored  (ease 
of  use,  at  least  as  fast,  stability)  but  extrapolation  methods  have  the  advantage  of  being 
variable  order  and  so  are  suited  well  for  high  accuracy  needs  and  long  integration  times  as 
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is  the  case  in  the  present  application.  It  should  be  noted  that  some  efficiency  is  lost  in 
using  the  simpler  stepsize  control  algorithm  but  the  approach  is  more  intuitive. 
MODIFICATION  HISTORY: 


1111 

9710 

0210 


Miller  &  Holz  First  Release 

Scott  Williams  Cleaned  up  code;  added  explanetory  commentary 

Scott  Williams  Replaced  mallocs  with  VLAs  (C99) ;  modified  stepsize  underflow  trap 


void  bsstep (double  *y,  const  double  *dydx,  const  int  nv,  double  *xx,  double  h, 
const  double  eps,  const  double  *yscal,  double  *hdid,  double  *hnext, 
void  (*derivs) (const  double,  const  double  *,  double  *)) 


/ 


int  i,  j=hv+l ; 

double  xest,  errmax,  temp; 

double  ysav[j],  yseq[j],  yerr[j],  x[j],  d [ j ] [NUSE+1] ; 
static  int  nseq [ IMAX+1 ] = { 0 , 2 , 4 , 6, 8 , 12, 16, 24, 32 , 48, 64 , 96 } ; 

static  double  nratio [ IMAX+1 ] ; 


//  set  stepsize  scaling  factors  on  first  call  to  routine 
if  ( ! nratio [1 ] )  { 

for  (i=l;  i<NUSE-l;  i++)  nratio[i]  =  ((double)  nseq [NUSE-1 ])/( (double)  nseq[i]); 

nratio [NUSE-1]  =  GROW; 
nratio [NUSE]  =  SHRINK; 

for  (i=NUSE+l;  i<=IMAX;  i++)  nratio[i]  =  ((double)  nseq [NUSE-1 ])/( (double)  nseq[i]); 
nratio[0]  =  0.25; 

for  (i=l;  i<= ( ( IMAX-NUSE) /2 ) ;  i++)  nratio [0]  *=  0.5; 

} 


// nfcn  =  0; 

for  (i=l;  i<=nv;  i++)  ysav[i]  =  y[i] ;  //  save  input  function  values 

for  (;;)  { 

for  (i=l;  i<=IMAX;  i++)  { 


//  step  to  xx+h  using  nseq[i]  substeps 

mmid(ysav,  dydx,  nv,  (*xx) ,  h,  nseq[i],  yseq,  derivs) ; 

xest  =  (temp=h/nseq [i] ,  temp* temp ) ;  //  squared  b/c  error  series  even 


//  perform  extrapolation;  result  is  limit  as  substep  size  goes  to  0 


rzextr(i,  xest,  yseq,  y,  yerr,  nv,  x, 

errmax=  0.0; 

for  ( j=l;  j <=nv;  j++)  { 

temp  =  fabs (yerr [ j ] /yscal [ j ] )  ; 
errmax  =  (errmax  <  temp)  ?  temp  : 

} 

if  (errmax/eps  <  1.0)  { 

*  xx  +=  h ; 

*hdid  =  h; 

*hnext  =  h*nratio[i]; 
return; 

} 

} 

h  *=  nratio [0 ] ; 

if  (  ( *xx+h)  ==  ( *  xx ) )  { 

printf ( "Stepsize  underflow  in  BSSTEP; 
while  ( (*xx+h)  ==  (*xx) )  h  *=  1.1; 


NUSE+1,  d) ; 

//  compute  largest  relative  error 
errmax; 

//  acceptible  error  so  good  step 
//  predict  next  step 

//  step  too  big,  shrink  &  try  again 
//  oops,  now  too  small 
trying  a  slightly  bigger  step  .  .  .\n"); 


#undef  IMAX 

#undef  SHRINK 

#undef  GROW 


PROGRAM : 


mmid 


Uses  the  'modified  midpoint  method'  to  advance  a  vector  of  dependent  variables  a  single  step 
(y(x)  to  y(x+H))  using  a  sequence  of  substeps 
INPUTS/OUTPUTS/RETURN  VALUE: 


-------  ***  all  vectors  are  assumed  unit  offset;  range  [l...nvar]  *** 

y  -  vector  of  dependent  variables  at  xs 

dydx  -  vector  of  derivatives  of  y  at  xs 

nvar  -  length  of  the  vectors 

xs  -  initial  value  of  independent  variable 

htot  -  the  total  step  of  the  indpendent  variable  to  be  made 

nstep  -  number  of  substeps  to  use 
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yout  -  vector  of  resulting  values  of  y  at  xs+htot;  this  may  be  the  same  vector  as  y 
derivs  -  user  supplied  function  that  computes  the  derivatives  (3rd  argument)  of  the  dependent 
variables  (2nd  argument)  at  a  specified  value  of  the  independent  variable  (1st 
argument) 

INCLUDES/EXTERNAL  REFERENCES: 

Lincl.h  :  math.h 


COMMENTS : 


Adapted  from  Numerical  Recipes  in  C,  2nd  Ed.,  pp  723-724.  This  is  a  2nd  order  'centered 
difference'  method  (except  at  the  end  points)  for  integrating  ODEs.  It  is  not  very  useful 
by  itself  but  it  is  valuable  as  part  of  more  powerful  methods  because  its  error  series  only 
even  terms. 

MODIFICATION  HISTORY: 


1111 

9710 

0210 


Miller  &  Holz 
Scott  Williams 
Scott  Williams 


First  Release 

Cleaned  up  code;  added  explanetory  commentary 
Replaced  mallocs  with  VLAs  (C99) 


void  mmid (const  double  *y,  const  double  *dydx,  const  int  nvar,  const  double  xs, 
const  double  htot,  const  int  nstep,  double  *yout, 
void  (*derivs) (const  double,  const  double  *,  double  *)) 


/ 


int  n=nvar+l,  i; 

double  x,  swap,  h2,  h; 
double  ym[n] ,  yn[n]; 


h  =  htot/nstep; 
for  (i=l;  i<=nvar;  i++)  { 
ym [ i ]  =  y [ i ] ; 
yn[i]  =  y[i]  +  h*dydx[i]; 

} 

x  -  xs+h; 

(*derivs) (x,  yn,  yout) ; 

nfcn++; 

h2  =  2 . 0  *  h ; 

for  (n=2;  n<=nstep;  n++)  { 
for  (i=l; i<=nvar; i++)  { 

swap  =  ym[i]  +  h2*yout[i]; 
ym [ i ]  =  yn [ i ] ; 
yn[i]  =  swap; 


//  compute  substep 
//  first  step 

//  use  yout  for  temporary  storage 
//  general  'centered'  steps 


x  +=  h; 

(*derivs) (x,  yn,  yout) ; 
nfcn++; 


for 

} 


(i=l;  i<=nvar;  i++) 
yout[i]  =  0.5*(ym[i] 


+  yn [i] 


+  h*yout [i] ) ; 


//  compute  yout  at  xs+htot 


PROGRAM:  rzextr 

Uses  rational  function  extrapolation  (ratio  of  polynomials)  to  project  a  'function'  value  at 
x  —  0 ,  y(0),  using  a  sequence  of  estimates  generated  from  progessively  smaller  values  of  x 
and  corresponding  values  y(x).  y  may  be  a  vector  functions  (i.e.,  y  =  [yl (x) ,  .  .  . ,yn(x)]. 
INPUTS/OUTPUTS/RETURN  VALUE: 

--------  ***  all  vectors  are  assumed  unit  offset;  range  [1.. .nvar]  ***  -------- 

iest  -  index  of  current  (newest)  set  of  values  in  sequence  values 

xest  -  current  (newest=smallest )  value  of  independent  variable 

yest  -  current  (newest)  set  of  function  values  at  xest 

yz  -  resulting  vector  of  current  extrapolated  function  values  at  x=0 

dy  -  vector  of  estimated  errors  associated  with  for  yz 

nv  -  number  of  components  in  the  vector  function  y(x) 

x  -  vector  containing  previous  sequence  of  xest  {xl,  .  .  .,  x(iest-l)} 

d  -  matrix  containing  previous  sequence  of  yest  (y(xl),  .  .  .,  y (x (iest-1) ) } 

NOTE:  x  &  d  are  appended  with  xest  &  yest  respectively  on  output 
INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  math.h 
Lintgr8 . c  :  NUSE 
COMMENTS : 


Adapted  from  Numerical  Recipes  in  C,  2nd  Ed.,  pp  731-732.  Implemented  version  imposes 
a  limit  (NUSE)  on  the  number  of  values  to  be  used  in  the  extrapolation. 

MODIFICATION  HISTORY: 


1111 

9710 

0210 


Miller  &  Holz 
Scott  Williams 
Scott  Williams 


First  Release 

Cleaned  up;  added  commentary,  set  x 
Replaced  mallocs  with  VLAs  (C99) 


&  d  as  arguments  vice  globals 


/ 
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void  rzextr (const  int  iest 
const  int  nv, 

{ 

int  ml ,  k,  j ; 

double  yy,  v,  ddy,  c 

x[iest]  =  xest; 
if  (iest  —  1)  { 

for  ( j=l;  j <=nv;  j++)  { 
yz  [ j ]  =  yest [ j ] ; 

d [ j ] [1]  =  yest [ j] ; 
dy [ j ]  =  yest [ j ] ; 

} 

}  else  { 

double  fx[NUSE+l]; 

ml  =  (iest<NUSE)  ?  iest  :  NUSE; 

xest  =  1.0/xest; 

for  (k=l;  k<ml;  k++) 

fx[k+l]  =  x [iest-k] *xest; 
for  ( j=l;  j <=nv;  j++)  { 
yy  =  yest [ j ] ; 

v  =  d  [  j  ]  [1]  ; 

c  =  yy; 

d [ j  ]  [1]  =  yy; 

for  (k=2;  k<=ml ;  k++)  { 
bl  =  fx[k]*v; 
b  =  bl-c; 
if  (b)  { 

b  -  (c-v) /b; 
ddy  ==  c*b; 
c  =  bl*b; 

}  else 

ddy  -  v; 

if  (k  !=  ml)  v  =  d [ j ] [ k ] ; 
d [ j ] [k]  =  ddy; 
yy  +=  ddy; 

} 

dy [ j ]  =  ddy; 
yz [ j ]  =  yy; 


*yest,  double  *yz,  double  *dy, 
d [nv+1] [nc] ) 


//  save  current  indep  variable 
//  1st  time  so  can't  extrapolate 


//  use  last  NUSE  sequence  values 
//  multiply  faster  than  divide 

//  normalize  to  current  xest 
//  get  next  diagonal  in  tableau 


//  precaution  against  divide  by  0 


double  xest,  const  double 
double  *x,  const  int  nc,  double 

bl,  b; 


#undef 


PROGRAM:  bdstep 

The  orginal  Numerical  Recipes  version  of  bsstep  .  .  .  Uses  the  extrapolation  method  of 
Bader  &  Deuflhard  to  advance  a  vector  of  dependent  variables  a  single  step  (y(x)  to 
y(x+hdid))  while  monitoring  local  truncation  error  to  ensure  accuracy  and  adjust  step  size. 

An  estimate  for  the  next  step  to  be  taken  is  also  generated. 

INPUTS/OUTPUTS/RETURN  VALUE: 

--------  ***  all  vectors  are  assumed  unit  offset;  range  [1.. .nvar]  ***  --------- 

y  -  vector  of  dependent  variables  at  xx;  replaced  with  new  values  on  output 

dydx  -  vector  of  derivatives  of  y  at  xx 

nv  -  length  of  the  vectors 

xx  -  value  of  independent  variable;  replaced  with  new  value  on  output 

htry  -  the  step  of  the  indpendent  variable  to  be  attempted 

hdid  -  the  step  of  the  indpendent  variable  actually  accomplished 

hnext  -  estimate  of  the  next  step  size  to  take 

eps  -  relative  error  tolerance 

yscal  -  vector  against  which  error  is  scaled 

derivs  -  user  supplied  function  that  computes  the  derivatives  (3rd  argument)  of  the  dependent 
variables  (2nd  argument)  at  a  specified  value  of  the  independent  variable  (1st 
argument) 

INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  math.h,  gsl_math.h,  _TINY 
-  Lprot.h  :  lageos_error ( ) ,  mmid(),  rzextr () 

Lintgr8 . c  :  IMAXX,  KMAXX,  REDMAX,  SAFE,  SAFE2 ,  SCALMX, 

COMMENTS : 

Adapted  almost  verbatim  from  Numerical  Recipes  in  C,  2nd  Ed.,  pp  728-730. 
used  is  from  the  family  of  extrapolation  methods  introduced  by  Bulisrch  & 
adaptive  stepsize  control  scheme  is  that  of  Deuflhard  and  it  claims  to  be  generally  more 
efficient . 


The  approach 
Stoerr.  The 
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In  the  world  of  ODE  methods,  Runge-Kutta  approaches  seem  to  be  more  generally  favored  (ease 
of  use,  at  least  as  fast,  stability)  but  extrapolation  methods  have  the  advantage  of  being 
variable  order  and  so  are  suited  well  for  high  accuracy  needs  and  long  integration  times  as 
is  the  case  in  the  present  application.  It  should  be  noted  that  some  efficiency  is  lost  in 
using  the  simpler  stepsize  control  algorithm  but  the  approach  is  more  intuitive. 

MODIFICATION  HISTORY: 

First  Release  (replaced  mallocs  with  VLAs) 

//  Maximum  row  number  used  in  the  extrapolation. 

//  Safety  factors. 


0210 

Scott  Williams 

******* 

******** 

*********. 

#def ine 

KMAXX 

8 

#def ine 

IMAXX 

(KMAXX+1) 

#def ine 

SAFE1 

0.25 

#def ine 

SAFE2 

0.7 

#def ine 

REDMAX 

1.0e-5 

#def ine 

REDMIN 

0.7 

#def ine 

SCALMX 

0.1 

void 

bdstep (double  *y, 

//  Maximum  factor  for  stepsize  reduction. 

//  Minimum  factor  for  stepsize  reduction. 

//  1/SCALMX  is  maximum  factor  by  which  a  stepsize  can  be  increased. 

const  double  *dydx,  const  int  nv,  double  *xx,  double  htry, 
const  double  eps,  const  double  *yscal,  double  *hdid,  double  *hnext, 
void  (*derivs) (const  double,  const  double  *,  double  *)) 


int 

double 

double 

double 

static 

static 

static 

static 


i,  iq,  k,  kk,  km,  reduct,  exitflag=0; 

epsl,  errmax,  fact,  h,  red,  scale, work,  wrkmin,  xest; 
x [KMAXX+1 ] ,  err [KMAXX+1 ] ,  yerr[nv+l],  ysav[nv+l],  yseq[nv+l]; 
d [KMAXX+1 ] [KMAXX+1] ; 
int  first=l,  kmax,  kopt; 

int  nseq [ IMAXX+1 ]  =  {0,  2,  4,  6,  8,  10,  12,  14,  16,  18}; 

double  epsold  =  -1.0,  xnew; 

double  a [IMAXX+1],  alf [KMAXX+1 ] [KMAXX+1 ] ; 


if  (eps  !=  epsold)  { 

*hnext  -  xnew  -  -1.0e29; 
epsl  =  SAFEl*eps; 
a[l]  =  nseq[l]  +  1; 

for  (k=l;  k<=KMAXX;  k++)  a[k+l]  =  a[k] 
for  (iq=2;  iq<=KMAXX;  iq++)  { 
for  (k=l;  k<iq, 
alf [k] [iq] 

} 

epsold  =  eps; 
for  (kopt =2; 

if  (a[kopt+l] 
kmax  =  kopt ; 


//  A  new  tolerance,  so  reinitialize. 

//  "Impossible"  values. 

//  Compute  work  coe.cients  Ak. 

+  nseq [k+1 ] ; 

//  Compute  a(k,  q)  . 

-  a [iq+1] )  /  ( (a [ iq+1 ]  -  a [ 1 ] +1 . 0 ) * (2 *k+l ) ) ) ; 


k++) 

=  pow(epsl, (a[k+l] 


kopt<KMAXX;  kopt++)  //  Determine  optimal  row  #  for  convergence 

>  a [kopt] *alf [kopt-1] [kopt] )  break; 


} 

h  -  htry; 

for  (i=l;  i<=nv;  i++)  ysav[i]  =  y[i] ;  //  Save  the  starting  values. 


//A  new  stepsize  or  a  new  integration:  re-establish  the  order  window, 
if  (*xx  !=  xnew  | |  h  !=  (*hnext))  { 
first  =  1; 
kopt  =  kmax; 

} 


reduct=0; 
for  ( ; ; )  { 

/ /  Evaluate  the  sequence  of  modif ed  midpoint  integrations . 
for  ( k=l ; k<=kmax; k++)  { 
xnew  =  (*xx)+h; 

if  (xnew  ==  (*xx) )  lageos_error (" step  size  underflow  in  bdstep"); 

//  step  to  xx+h  using  nseq[i]  substeps 

mmid(ysav,  dydx,  nv,  *xx,  h,  nseq[k],  yseq,  derivs) ; 

xest  =  gsl_pow_2 (h/nseq [k] ) ;  //  Squared,  since  error  series  is  even. 

//  perform  extrapolation;  result  is  limit  as  substep  size  goes  to  0 
rzextr(k,  xest,  yseq,  y,  yerr,  nv,  x,  KMAXX+1,  d) ; 

if  (k  !=  1)  {  //  Compute  normalized  error  estimate  eps (k) 

errmax  =  _TINY; 

for  (i=l;  i<=nv;  i++)  errmax  =  GSL_MAX (errmax,  fabs (yerr [i] /yscal [i] ) ) ; 
errmax  /=  eps;  //  Scale  error  relative  to  tolerance, 

km  =  k-1; 

err [km]  =  pow (errmax/ SAFE 1 ,  1 . 0/ (2*km+l ) ) ; 

} 
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if  (k  !=  1  &&  (k  >=  kopt-1  | |  first))  {// 

if  (errmax  <  1.0)  {  // 

exitflag  =  1; 
break; 

} 

if  (k  —  kmax  | |  k  ==  kopt+1)  {  // 

red  =  SAFE2/err [km] ; 
break; 

} 

else  if  (k  ==  kopt  &&  alf [kopt-1] [kopt]  <  err [km])  { 
red  =  1.0/err [km]; 
break; 

} 

else  if  (kopt  —  kmax  &&  alf [km] [kmax-1]  <  err [km])  { 
red  =  alf [km] [kmax-1] *SAFE2 /err [km] ; 
break; 

} 

else  if  (alf [ km] [ kopt ]  <  err [km])  { 
red  =  alf [km] [kopt-1] /err [km] ; 
break; 


In  order  window. 
Converged. 


Check  for  possible  stepsize  reduction. 


if  (exitflag)  break; 


red  - 

GSL_ 

MIN 

(red, REDMIN) ; 

// 

Reduce  stepsize  by  at  least  REDMIN 

red  = 

GSL_ 

"MAX' 

(red, REDMAX) ; 

// 

and  at  most  REDMAX. 

h  *  = 

red; 

reduct  - 

1; 

// 

Try  again. 

//  Successful  step  taken. 

*xx  =  xnew; 

*hdid  =  h; 
first  =  0; 
wrkmin  =1.0e35; 

//  Compute  optimal  row  for  convergence  and  corresponding  stepsize. 
for  (kk=l;  kk<=km;  kk++)  { 

fact  =  GSL_MAX (err [ kk] , SCALMX) ; 
work  =  fact*a [kk+1] ; 
if  (work  <  wrkmin)  { 
scale  =  fact; 
wrkmin  =  work; 
kopt  =  kk+1 ; 


*hnext  =  h/scale; 

//  Check  for  possible  order  increase,  but  not  if  stepsize  was  just  reduced, 
if  (kopt  >=  k  &&  kopt  !=  kmax  &&  ! reduct)  { 

fact  =  GSL_MAX ( scale/ alf [ kopt-1 ][ kopt ] ,  SCALMX); 
if  (a [kopt+1] *fact  <=  wrkmin)  { 

*hnext=h/ fact; 
kopt++; 

} 

} 

} 

#undef  KMAXX 
#undef  IMAXX 
#undef  SAFE1 
#undef  SAFE 2 
#undef  REDMAX 
#undef  REDMIN 
#undef  SCALMX 


PROGRAM:  dfridr 

Returns  the  derivative  of  a  function  func  at  a  point  x  by  Ridders'  method  of  polynomial 
extrapolation.  The  value  h  is  input  as  an  estimated  initial  stepsize;  it  need  not  be  small 
but  rather  should  be  an  increment  in  x  over  which  func  changes  substantially.  An  estimate 
of  the  error  in  the  derivative  is  returned  as  err. 

INPUTS/OUTPUTS/RETURN  VALUE: 

func  -  pointer  to  user  supplied  function  to  be  differentiated 
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x  -  value  of  indep  variable  at  which  deriv  is  required 

h  -  initial  stepsize  to  use  for  the  finite  differencing 

err  -  output  error  estimate  of  derivative 

f_status  -  performance  control  flag 

rtol  -  relative  accuracy  required  of  the  derivative 

RETURN  -  derivative 

INCLUDES/EXTERNAL  REFERENCES: 

Lincl.h  :  stdio.h,  math.h,  gsl_math.h,  lageos_warn ( ) , 

Lintgr8 . c  :  NUSE 
COMMENTS : 


Adapted  from  Numerical  Recipes  in  C,  2nd  Ed. 
MODIFICATION  HISTORY: 

0211  Scott  Williams  First  release 


******** 

******* 

******************** 

**** 

********************************* 

***************** 

******/ 

#def ine 

CON 

1.4 

// 

Stepsize  is  decreased  by  CON  at 

each  iteration. 

#def ine 

CON2 

(CON* CON) 

#def ine 

BIG 

1 . 0e30 

#def ine 

NTAB 

7 

// 

Sets  maximum  size  of  tableau. 

#def ine 

SAFE 

2.0 

// 

Return  when  error  is  SAFE  worse 

than  the  best  so 

far. 

float 

i 

dfridr ( 

float  (*func) (float) 

,  float  x,  float  h,  float  *err,  FLAG 

*f  status,  float 

rtol) 

X 

int 

if  j 

; 

float  errt ,  fac,  ans,  a [ NTAB ] [ NTAB ] ; 


if  (h  ===  0.0)  lageos_error  ( "h  must  be  nonzero  in  dfridr." ); 
if  (fabs(h)  <=  fabs(x)  *  GSL_ROOT3_FLT_EPSILON) 

printf ( "\nWarning  [dfridr]:  initial  stepsize  %.4g  may  be  too  small  to  yield 
"reliable  finite  difference  results\n\n" ,  h) ; 


//  force  h  to  be  exactly  a  machine  representable  number 
fac  =  x  +  h; 

ceil (fac);  //  fen  call  forces  fac  into  addressable  memory 

h  =  fac  -  x;  //  to  bypass  higher  precision  internal  storage 


a  [ 0 ]  [ 0 ]  =  (  (*func)  (x+h)  -  ( *func)  (x-h) ) / (2 . 0*h) ; 
ans  =  a [0 ]  [ 0]  ; 

*err  =  BIG; 

*f_status  =  -1 ;  /*  f_status :  -1 

0 

1 

for  (i=l;  i<NTAB;  i++)  { 

/*  Successive  columns  in  the  Neville  tableau  will 
higher  orders  of  extrapolation.  */ 
h  /=  CON; 

a [ 0 ] [ i ]  =  ( (*func) (x+h)  -  ( *f unc) (x-h) ) / (2 . 0*h) ; 
fac  =  CON 2 ; 


=  max  iteration  (NTAB)  reached, 

=  early  termination  on  increase  err 
=  early  termination  on  rtol 

go  to  smaller  stepsizes  and 


//  Try  new,  smaller  stepsize. 


*/ 


//  Compute  extrapolations  of  various  orders,  requiring  no  new  function  evaluations, 
for  ( j=l;  j<=i;  j++)  { 

a [ j ] [i]  =  (a [ j-1] [i] *fac  -  a[ j-1] [i-1] ) / (fac  -  1.0); 
fac  =  CON2*fac; 

errt  =  GSL_MAX (fabs (a [ j ] [i]  -  a [ j-1] [i ] ) ,  fabs(a[j][i]  -  a [ j-1] [i-1] ) ) ; 

/*  The  error  strategy  is  to  compare  each  new  extrapolation  to  one  order  lower, 
both  at  the  present  stepsize  and  the  previous  one.  If  error  is  decreased, 
save  the  improved  answer.*/ 
if  (errt  <=  *err)  {  *err  =  errt;  ans  =  a[j] [i];  } 

} 

//  if  solution  is  good  enough,  quit  early  (added  by  Scott  Williams  0211) 
if  (*err  <=  f abs (rtol*ans) )  {  *f_status  =  1;  break;  } 

//  If  higher  order  is  worse  by  a  significant  factor  SAFE,  then  quit  early, 
if  (fabs(a[i]  [i]  -  a[i-l]  [i-1])  >=  SAFE*(*err))  {  *f_status  =  0;  break;  } 

} 

return  ans; 


#undef 

#undef 

#undef 

#undef 

#undef 

//***** 


CON 

CON2 

BIG 

NTAB 

SAFE 
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Optimization  Package 


LOPT.C 


#include 

♦include 

♦include 


Lopt .h" 
Lincl . h" 
Lextern .  h' 


PROGRAM:  lageos_optmain 

Control  routine  for  lageos  optimization  suite  -  used  to  determine  optimal  values  of  Lageos 
model  parameters  in  correspondence  with  Pepi  Avizonis'  empirically  obtained  spin  state  data 
for  Lageos  I. 

INPUTS/OUTPUTS/RETURN  VALUE:  none 

INCLUDES /EXTERNAL  REFERENCES: 

Lincl. h  :  stdio.h,  gsl_math.h,  gsl_vector . h, 

-  Lprot.h  :  file_ops(),  get_params ( ) ,  global_alloc ( ) ,  lageos_error ( ) , 

Lextern. h  :  gf_out,  g_Il,  g_I3,  g_magscl,  g_oblcore,  g_rcore,  g_save,  g_sigcore 
Lopt.h  :  NPAR,  opt_data_init ( ) ,  opt_f ile_ops ( ) ,  opt_params ( ) ,  fp_stps,  fp_grad, 

:  opt_hmax,  optv_mp,  optv_pmin,  opt_scl, 

COMMENTS : 

MODIFICATION  HISTORY: 

0211  Scott  Williams  First  Release 


void  lageos_optmain (void) 

{ 


//  Initialize  Lageos  model  &  taylor  globals 

global_alloc (1) ; 

get_params (0) ; 

g_save  =  0.0; 

gf_out  -  2; 

opt_data_init () ; 

global_alloc (2) ; 

f ile_ops (-1 )  ; 

//  Open  optimization  output  files  and  write 
opt_file_ops (0); 
opt_file_ops (1) ; 
opt_f ile_ops (2) ; 


for  optimization 

//  allocate  global  matrices  &  vectors 
//  get  pre-defined  program  parameters 
//  force  no  recurrent  output 
//  force  no  output  files 
//  get  PepiData  &  set  targeted  output 
//  allocate  internal  storage  structs 
//  force  no  model  data  output  files 

headers 
//  open 
//  headers 
//  flush 


//  Initialize  variable  model  parameters  -  scale  all  to  internal  values  of  unity 

optv_mp  =  gsl_vector_alloc (NPAR) ; 

optv_pmin  =  gsl_vector_alloc (NPAR) ; 

opt_scl[0]  =  g_rcore; 

opt_scl[l]  =  g_sigcore; 

opt_scl[2]  =  g_magscl; 

opt_scl[3]  =  g_oblcore; 

opt_scl[4]  =  (g_I3  +  g_Il)/2; 

opt_scl[5]  =  opt_scl[4]; 

opt_hmax[4]  =  0 . 5* (g_I3-g_Il) /opt_scl [4 ] ; 
opt_hmax [ 5 ]  =  opt_hmax [ 4 ] ; 
gsl_vector_set_all  (optv_mp,  1.0); 
gsl_vector_set  (optv_mp,  4,  g_Il/opt_scl [4] ) ; 
gsl_vector_set  (optv_mp,  5,  g_I3/opt_scl [ 5] ) ; 
gsl_vector_memcpy  (optv_pmin,  optv_mp) ; 

//  Time  for  the  show! 
opt_params ( ) ; 

//  Clean  up 
opt_file_ops (3) ; 
global_alloc (0) ; 
f ile_ops (2) ; 


//  close  optimization  output  files 
//  free  dynamically  allocated  memory 
//  close  data  output  file  streams 
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PROGRAM:  dump_params 

Formatted  output  of  current  parameter  values 
INPUTS/OUTPUTS/RETURN  VALUE:  none 

INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  stdio.h,  gsl_vector .h,  expcat  (), 

Lopt.h  :  opt_scl 

COMMENTS : 

MODIFICATION  HISTORY: 

0211  Scott  Williams  First  Release 


void  dump_params  (FILE  *fpout,  char  *subname,  const  gsl_vector  *v_mp,  FLAG  f_err, 
double  *err,  FLAG  f_endl) 

{ 

int  expn; 

double  bsn; 

if  (fpout  ==  stdout)  fprintf (fpout,  "\n") ; 
if  (subname  !=  NULL)  fprintf (fpout,  "%s",  subname); 

//  g_rcore 

fprintf (fpout,  "%10.4f  | ",  gsl_vector_get  (v_mp,  0) *opt_scl [0 ] ) ; 

//  g_sigcore 

bsn  =  expcat (gsl_vector_get  (v_mp,  1) *opt_scl [1 ] ,  &expn) ; 
fprintf (fpout,  "%8.5fe%2d  bsn,  expn); 

//  g_magscl 

fprintf (fpout,  "%10.4f  | ",  gsl_vector_get  (v_mp,  2) *opt_scl [2 ] ) ; 

//  g_oblcore 

fprintf (fpout,  "%10.5f  | ",  gsl_vector_get  (v_mp,  3) *opt_scl [3] ) ; 

//  g_Il 

bsn  =  expcat (gsl_vector_get  (v_mp,  4) *opt_scl [4 ] ,  Sexpn) ; 
fprintf (fpout,  "%9.5fe%d  | ",  bsn,  expn) ; 

//  g_I3 

bsn  =  expcat (gsl_vector_get  (v_mp,  5) *opt_scl [5] ,  &expn) ; 
fprintf (fpout,  "%9.5fe%d  ",  bsn,  expn); 

if  (f_err)  { 

bsn  =  expcat (*err,  &expn) ; 

fprintf (fpout,  " | | %10 . 6fe%-+3d" ,  bsn,  expn); 

} 

while  (f_endl  >  0)  {  fprintf ( fpout,  "\n") ;  f_endl--;  } 


PROGRAM:  fopt  +  shells 

Minimization  function  for  Lageos  spin  model  parameter  optimization.  Formatted  for  use  with 
gsl  multi-dimensional  minimization  routines.  Computes  a  net  weighted  error  of  model  output 
versus  Avizonis'  spin  rate  &  spin  axis  orientation  data.  The  shells  are  one  variable  calling 
formats  for  numerical  calculation  of  the  partial  derivatives  of  fopt  wrt  the  variable  model 
parameters . 

INPUTS/OUTPUTS/RETURN  VALUE: 

v_mp  -  gsl  type  vector  of  length  NPAR  containing  the  variable  model  parameters: 

==>  v_mp  -  {g_rcore,  g_sigcore,  g_magscl,  g_oblcore,  g_Il,  g_I3} 
fpar  -  pointer  to  minimization  function  parameters 

==>  pass  through  fpar  a  pointer  to  a  double  array  [3]  with  elements  representing 

the  error  term  weight  factors:  [0]-spin  rate;  [l]-righ  ascension;  [2 ] -declination 
INCLUDES/EXTERNAL  REFERENCES: 

Lincl.h  :  stdio.h,  gsl_math.h,  gsl_vector . h, 

-  Lprot.h  :  bdstepO,  bsstepO,  deriv(),  deriv_shell_xx  ( )  ,  dump_headers  ()  ,  dump_log(), 

:  get_params ( ) ,  lageos_spin_xx ( ) 

Lextern.h  :  fp_log,  gf_driver,  g_Il,  g_I3,  g_magscl,  g_oblcore,  g_rcore,  g_sigcore,  g_w, 

:  optv_mp,  opt_scl 

Lopt.h  :  COMPTOL,  DECAY,  HIST,  NPAR,  opt_scl,  optv_mp,  optv_w,  optv_ra,  optv_dec 
COMMENTS : 


-  The  spin  rate  portion  of  the  error  is  a  scalar  —  the  difference  between  best-fit 
exponential  decay  coefficients  of  the  model  and  Avizonis'  data 

-  The  components  of  the  spin  axis  orientation  (ra  &  dec)  are  treated  independently  with 
each  error  a  sum-of-squares  of  the  angle  differences  at  the  data  points;  computation 

is  done  in  degrees  in  part  for  scaling  and  in  part  for  easier  interpretation  of  results 

-  The  three  error  components  are  then  linearly  superposed  using  the  weight  factors  in  the 
fpar  array. 


NOTE:  The  error  equation  needs  to  be  improved.  For  the  spatial  error,  better  to  compute 
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(at  each  point)  components  along  the  major  and  minor  axes,  scaled  by  the  inverse  of 
the  semi-major  axis  and  semi-minor  axis  magnitudes  respectively.  Also  should  allow 
the  integration  start  point  to  vary  (add  its  ra  &  dec  as  parameters  in  the 
optimization) 

MODIFICATION  HISTORY: 

0211  Scott  Williams  First  Release 


float  fopt_shell_f loat  (const  float  p) 

{ 

char  str[16]; 
static  int  oldndf=-l; 

if  (oldndf  ==  opt_ndf)  opt_nfopt++; 
else  {oldndf  =  opt_ndf;  opt_nfopt  =  1;  } 

gsl_vector_set (optv_mp,  opt_ndf,  (double)  p) ; 
sprintf  (str,  " fopt_shell_%d" ,  opt_ndf ) ; 
printf  ("%-14s | \n",  str); 

return  (float)  f opt (optv_mp,  (void  *)  opt_wts) ; 

} 

double  fopt_shell  (const  double  p,  void  *  fpar) 

{ 

char  str [16]; 

gsl_vector_set (optv_mp,  opt_ndf,  p) ; 
sprintf  (str,  " fopt_shell_%d" ,  opt_ndf ) ; 
printf  ("%-14s | \n",  str); 
return  f opt (optv_mp,  fpar); 


double  fopt  (const  gsl_vector  *  v_mp,  void 
{ 


fpar) 


char 

int 

double 
double 
double 
static  int 
static  double 


str [70] ; 
i; 

cO,  covOO,  covOl,  covll,  chisq,  decay; 
logw[opt_n],  rate_err=0.,  ra_err=0.,  dec_err=0 . ; 

*errwt  =  (double  *)  fpar; 
indx,  count; 

oldpar [HIST] [NPAR] ,  result [HIST] ,  errminO,  errmin [4] ={ 0 . 0,  0.0,  0.0,  le30}; 


//  -  Set  variable  params  &  check  for  redundent  computation  - 


//  set  new  model  parameter  values 
g  rcore  =  opt  scl[0]*gsl  vector  get 

(v  mp. 

0) 

g_sigcore 

=  opt_scl [1 ] *gsl  vector  get 

(v  mp. 

1) 

g  magscl 

=  opt_scl [2 ] *gsl  vector  get 

(v  mp. 

2) 

g  oblcore 

=  opt_scl [3] *gsl  vector  get 

(v  mp. 

3)  ; 

g_Il 

=  opt  scl[4]*gsl  vector  get 

(v  mp. 

4)  ; 

g_I3 

=  opt_scl [5] *gsl  vector  get 

(v  mp. 

5)  ; 

//  show  where  we  are 

printf ( "%-14s | \n\n" , "fopt  (in) ") ; 

sprintf (str, "%-14s | ", "fopt  (out) ") ; 

//  check  if  already  have  the  value  in  recent  history  (saves  lengthy  integration  time) 
for  ( i=0;  i  <  HIST;  i++)  { 

FLAG  f_tst=l; 
int  j  ; 

for  ( j  =  0;  j  <NPAR;  j++)  { 

//  internal  values  scaled  to  order  unity  so  this  is  actually  a  relative  comparison 
if  (fabs (gsl_vector_get (v_mp, j ) -oldpar [ i] [j ]) >COMPTOL)  {  f_tst  =  0;  break;  } 

} 

if  ( f _ t st )  { 

dump_params (stdout,  str,  v_mp,  1,  &result[i],  1); 
if  (count  >  HIST)  { 

sprintf  (str,  "Multi-dimensional  minimization  unable  to  make  further  progress") 
fprintf (fp_stps,  "%s",  str); 
lageos_error (str)  ; 

} 

count  +=  1; 
return  result  [i]; 

} 

} 

count  =  0 ; 

//  - - - - Proceed  with  integration  to  get  new  data  set - - - ~ - 


244 


List  of  References 


get_params  (1); 
dump_headers ( ) ; 
switch  (gf_driver)  { 

case  1 :  lageos_spin_nr 
case  2 :  lageos_spin_rk 
case  3:  lageos_spin_de 
default:  lageos_spin_nr 

} 


//  recompute  derived  parameters 


(  (void  *)  deriv,  (void  *)  bdstep) ;  break; 
(  (void  *)  deriv_shell_rk) ;  break; 
(deriv_shell_de) ;  break; 

(  (void  *)  deriv,  (void  *)  bsstep) ; 


banner (stdout,  1,  '  =  ',  0,  0,  105,  0,  0,  0,  0)  ; 


for  (i=0;  i<opt 
logw[i]  - 
ra_err  += 
dec  err  += 


- - ~~~~~~~  Compute  individual  error  terms 

n;  i++)  { 

log (g_w [i] .mag)  ; 

gsl_pow_2  (M_DPR* (gsl_vector_get  (optv_ra,  i) 
gsl_pow_2  (M_DPR* (gsl_vector_get  (optv_dec,  i) 


-  g_w[i] .ra) ) ; 

-  g_w [ i] . dec) ) ; 


gsl_f it_l inear 
rate_err  = 
rate_err  *= 
ra_err  *= 
dec  err  *= 


(opt_t,  1,  logw,  1,  opt_n,  &c0,  &decay,  &cov00, 

opt_n*gsl_pow_2 (decay  -  DECAY) ; 

errwt [ 0] ; 

errwt [1] ; 

errwt [2] ; 


&cov01 , 


&covll , 


&chisq) ; 


//  store  results  for  comparison  on  input 
indx++; 

indx  =  (indx==HIST)  ?  0  :  indx; 


ra_err  +  dec_err) 
dec  err; 


result [indx]  =  gsl_pow_2  (rate_err 
//result [ indx]  =  rate_err  +  ra_err 

oldpar [ indx] [ 0]  =  g_rcore/opt_scl [0 ]  ; 
oldpar [indx] [1]  =  g_sigcore/opt_scl [1 ] ; 
oldpar [indx] [2]  =  g_magscl/opt_scl [2] ; 
oldpar [ indx] [ 3]  =  g_oblcore/opt_scl [3] ; 
oldpar [indx] [4]  =  g_Il/opt_scl [4] ; 
oldpar [ indx] [ 5]  =  g_I3/opt_scl [ 5] ; 

//  save  current  set  if  better  than  any  before 
if  (result [ indx]  <  errmin[3])  { 
errmin[0]  —  rate_err; 
errmin[l]  =  ra_err; 
errmin[2]  =  dec_err; 
errmin[3]  =  result [ indx] ; 

for  (i=0;  i<NPAR;  i++)  gsl_vector_set  (optv_pmin. 


i,  oldpar [indx] [i]) 


//  print  results 

dump_params (stdout,  str,  v_mp,  1,  &result [indx] ,  1) ; 
if  (optf_out)  { 
int  ert; 

sprintf (str,  "%3d  |  |  I  I",  opt_nit) ; 
dump_params (fp_fvals,  str,  v_mp,  0,  NULL,  0); 
rate_err  =  expcat  (rate_err,  &ert) ; 

fprintf (fp_fvals, " | | %9 . 5fe%-+3d  |%#13.6g  |%#13.6g  | | %#13. 7g\n", 
rate_err,  ert,  ra_err,  dec_err,  result [indx] ) ; 
if  (errmin[3]  <  result [indx]  &&  errmin[3]  1=  errminO)  { 

dump_params (fp_fvals,  "  BEST  | optv_pmin,  0,  NULL,  0); 
rate_err  =  expcat  (errmin[0],  &ert) ; 

fprintf (fp_fvals, " | | %9 . 5fe%-+3d  |%#13.6g  |%#13.6g  | | %#13 . 7g\n" ,  rate_err,  ert, 
errmin[l],  errmin[2],  errmin[3]); 
errminO  =  errmin[3]; 

} 

f flush ( fp_fvals) ; 

} 

return  result [indx]; 


PROGRAM:  dfopt,  fdfopt 

Computes  the  gradient  of  fopt  with  respect  to  the  variable  model  parameters  using 
numerical  differentiation  (centerd  difference) ;  fdfopt  combines  the  computations  of  fopt 
and  dfopt  into  a  single  routine  (used  by  the  minimization  routines) . 

INPUTS/OUTPUTS/RETURN  VALUE: 

v_mp  -  gsl  type  vector  of  length  NPAR  containing  the  variable  model  parameters: 

==>  v_mp  -  {g_rcore,  g_sigcore,  g_magscl,  g_oblcore,  g_Il,  g_I3} 
fpar  -  pointer  to  minimization  function  parameters  (see  fopt  description) 
v_fgrad  -  resulting  gsl  type  vector  of  length  2  containing  the  gradient  of  fopt,  i.e.,  the 
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partial  derivs  of  fopt  wrt  the  variable  model  parameters 
INCLUDES/EXTERNAL  REFERENCES: 

Lincl.h  :  stdio.h,  gsl_diff.h,  gsl_math.h,  gsl_vector.h 
-  Lprot.h  :  elapsed_time ( ) ,  dump_params ( ) ,  opt_file_ops () , 

Lopt.h  :  NPAR,  fp_fvals,  fp_grad,  opt_ndf,  optv_mp, 

COMMENTS: 

Initially  built  this  routine  to  use  gsl's  numerical  differentiation  formula.  However,  that 
routine  is  only  available  in  double  precision  and  allows  minimal  user  control.  This  makes 
it  unreliable  to  use  with  a  function  based  on  numerical  differentiation  since  the  results 
of  the  integration  are  most  certainly  less  than  full  double  precision. 

So,  this  routine  now  utilizes  a  numerical  differentiation  technique  adapted  from  Numerical 
Recipes  in  C  based  on  the  idea  of  polynomial  extrapolation.  The  routine  is  float  precision, 
though  it  could  just  as  easily  be  double  b/c  the  user  can  specify  a  desired  tolerance  and 
evaluations  are  not  dependent  on  extremely  small  relative  stepsizes. 

MODIFICATION  HISTORY: 

0211  Scott  Williams  First  Release 


void  dfopt  (const  gsl_vector  *  v_mp,  void  *  fpar,  gsl_vector  *  v_fgrad) 

{ 


/ 


char 

FLAG 

int 

long 

float 

double 

static  int 

static  float 


str [16] ; 
f_status; 
i ; 

emin; 

p [NPAR] ,  df dmp [NPAR] ,  err [NPAR] ; 
esec,  nrmdf=0,  nrmerr=0; 
count; 
h [NPAR] ; 


//  nr_c :  dfridr 
//  nr  c :  dfridr 


//double  p [NPAR] ,  df dmp [NPAR],  err [NPAR] ;  //  gsl_dif f_central 

//gsl_function  F; 

//F. function  =  &fopt_shell; 

//F.params  =  fpar; 

//for  (i=0;  i<  NPAR;  i++)  p[i]  =  gsl_vector_get  (v_mp,  i) ;  //  gsl_dif f_central 


for  (i=0;  i<  NPAR;  i++)  p[i]  =  (float)  gsl_vector_get  (v_mp,  i) ;  //  nr_c:  dfridr 


print f ("%-14s|\n", "dfopt  (in) ") ; 

fprintf (fp_fvals, "\n%3d  |  | %  3d  |  |  param  ",  opt_nit,  count); 
fprintf (fp_grad,  "%3d  |  | %  3d  ",  opt_nit,  count); 

//  get  derivative  of  model  parameters 

optf_out  =  0;  //  suppress  outputs  during  deriv  calcs 

for  (opt_ndf  =  0;  opt_ndf <NPAR;  opt_ndf++)  { 

int  k=opt_ndf;  //  just  begin  lazy  -  opt_ndf  cumbersome 


elapsed_time ( &emin,  &esec) ; 

fprintf (fp_fvals, "  [%d] {%031d: %04 . If ,  ",  k,  emin,  esec); 
f flush ( fp_fvals) ; 

gsl_vector_memcpy  (optv_mp,  v_mp) ; 

//  Begin  nc_c:  dfridr 
if  (!h[k])  h[k]  =  opt_hmax[k]; 

//  Make  sure  h  not  too  big  or  too  small 

h[k]  =  GSL_MIN  (GSL_MAX (h [ k] ,  MINHF*opt_hmax [ k] ) ,  opt_hmax [ k] ) ; 
opt_nfopt  =  0 ; 

//  limit  number  of  iterations;  will  use  best  of  all  results  obtained  if  no  convergence 
for  ( i=0;  i<4;  i++)  { 

FLAG  f_stop=0; 

int  j  ; 

double  fac,  olderr=-999,  olddf,  oldfac; 

//  check  to  see  if  parameter  excluded 

for  (j=0;  j<NPARX;  j++)  if  (k  ==  opt_nx[j])  {  f_stop  =  1;  opt_nfopt  =  0;  break;  } 
if  (f_stop)  {  dfdmp[k]  =  0.0;  err[k]  =  0.0;  break;  } 

//  Get  the  derivative 

dfdmp[k]  =  (double)  dfridr ( fopt_shell_f loat ,  p[k],  h[k],  &err[k],  &f_status,  DTOL) ; 

//  done  &  don't  need  any  adjustments  if  error  <  DTOL 
if  (f_status  —  1)  break; 

//  otherwise  print  result  indicator  and  adjust  stepsize  seed  for  next  go-round 
if  (!f_status)  {  fprintf (fp_fvals,  "$%d.",  opt_nfopt) ;  fac  =  SHRSTP;  } 
else  {  fprintf (fp_fvals,  "*%d.",  opt_nfopt) ;  fac  =  GROSTP;  } 
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h[k]  *=  fac; 

//  accept  looser  but  adequate  step  to  avoid  too  many  fopt  calls 
if  (err[k]  <=  DRTOL*f abs (df dmp [ k] ) )  break; 

//  save  old  results  before  repeat 
if  (olderr  ==  -999)  { 
oldfac  =  fac; 
olderr  =  err[k]; 
olddf  =  dfdmp[k]; 
continue; 

} 


//  if  get  to  here  then  multiple  times  through  &  df  still  rejected 

if  (err[k]  <=  olderr)  {  //  result  improved  with  previous  scaling  of 

olderr  =  err[k];  //  h  so  make  sure  to  go  same  way 

olddf  =  dfdmp[k]; 

if  (fac  !=  oldfac)  h[k]  *=  (oldfac/fac) ;  //  undo  current  step  and  apply  prev 


static  int  repeat  =0; 

err[k]  =  olderr; 

dfdmp[k]  =  olddf; 

if  (repeat)  break; 

h [ k  ]  /=  (oldfac*fac) ; 

oldfac  =  (oldfac  <  1)  ?  GROSTP  : 

h [ k ]  *=  oldfac; 

repeat  =  1; 


//  went  the  wrong  way  so  restore  prev 

//  results  &  try  other  direction 

//  if  here  a  2nd  time  then  just  oscillating 
//  reset  h 
SHRSTP; 


fprintf (fp_fvals, "%-2d} ;  ",  opt_nfopt) ; 

//  End  nc_c :  dfridr 

//  Begin  gsl_dif f_central 

gsl_dif f_central  (&F,  p[k],  &dfdmp[k],  &err[k]); 
gsl_vector_set  (v_fgrad,  k,  dfdmp[k]); 


gsl_vector_set  (v_fgrad,  k,  (double)  dfdmp[k]); 

fprintf (fp_grad,  "||%#11.4g  |%#11.4g  ",  dfdmp[k],  err[k]); 

f flush (fp_grad) ; 

nrmdf  +=  gsl_pow_2 (dfdmp [k] ) ; 

nrmerr  +=  gsl_pow_2 (err [k] ) ; 


//  Print  status  to  screen 
sprintf (str,  "%-14s | " , "df opt  (out)"); 
dump_params (stdout,  str,  v_mp,  0,  NULL,  1); 
printf ( "%s" ,  str) ; 

for  ( i=0;  i<NPAR;  i++)  printf ("  d%d  =  %.4g  |",  i,  dfdmp[i]); 
printf ( "\n" ) ;  fprintf (fp_fvals,  "\n" ); 

fprintf (fp_grad, " | | %#11 . 4g  |%#11.4g  \n",  sqrt (nrmdf),  sqrt (nrmerr )) ; 


opt_f ile_ops (2) ;  //  flush  buffers 

count++; 

optf_out  -  1; 

} 

//  Computes  fopt  and  dfopt  simultanesouly 

void  fdfopt  (const  gsl_vector  *  v_mp,  void  *  fpar,  double  *fcn,  gsl_vector  *  v_fgrad) 

{ 

printf ("%-14s|\n", "fdfopt  (in) " ) ; 

*fcn  =  fopt  (v_mp,  fpar) ; 
dfopt  (v_mp,  fpar,  v_fgrad) ; 

printf ( "%-14s | \n" , "fdfopt  (out) ") ; 

} 


PROGRAM:  opt_data_init 

Retrieves  PepiData  within  the  interval  g_start  to  g_stop  (ascending  or  descending)  and 
stores  the  data  in  vectors  used  by  the  fopt  functions.  Resets  g_stop  if  need  be  to  the 
last  element  of  the  set.  Also  reconstructs  g_out  (and  its  friends  g_nout,  g_outndx)  to 
be  in  correspondence  with  the  PepiData  elements. 
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INPUTS/OUTPUTS/RETURN  VALUE:  none 

INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  math.h,  gsl_math.li,  gsl_vector . h, 

-  Lprot.h  :  lageos_error ( ) 

Lextern.h  :  gf_idir,  g_nout,  g_out,  g_outndx,  g_start,  g_stop, 
Lopt.h  :  NDATA,  PepiData,  opt_n,  optv_w,  optv_ra,  optv_dec 

COMMENTS : 

MODIFICATION  HISTORY: 

0211  Scott  Williams  First  Release 


void  opt_data_init  (void) 

{ 

int  i,  lndx,  undx; 


//  hunt  for  &  count  PepiData  elements  between  start  &  stop 

lndx  =  0; 

undx  =  NDATA- 1; 

while  (PepiData [lndx] [0]  <  GSL_MIN (g_start,  g_stop) )  lndx++; 
while  (PepiData [undx] [0]  >  GSL_MAX (g_start,  g_stop) )  undx — ; 
if  ( (opt_n  =  undx-lndx+1)  <  1) 

lageos_error  ("No  data  elements  within  optimization  integration  interval"); 
if  ( (g_start  !=  PepiData [ lndx] [ 0] )  &&  (g_start  !=  PepiData [undx] [ 0] ) ) 

lageos_error  ("Invalid  initial  state  for  optimization--no  correspondence  w/data  set") ; 
//  store  valid  PepiData  elements  in  working  arrays  &  reinitialize  targeted  output  array 
gsl_vector_free  (g_out) ; 
g_out  =  gsl_vector_alloc (opt_n) ; 
optv_w  =  gsl_vector_alloc (opt_n) ; 
optv_ra  =  gsl_vector_alloc (opt_n) ; 
optv_dec  =  gsl_vector_alloc (opt_n) ; 


if  (gf_idir)  {  //  integration  in  positive  time  direction 

//  force  integration  stop  to  last  element  in  set 
g_stop  =  PepiData [undx] [ 0] ; 
for  (i=0;  i<opt_n;  i++)  { 

gsl_vector_set  (g_out,  i,  PepiData [lndx+i] [0 ]) ; 
gsl_vector_set  (optv_w,  i,  PepiData [lndx+i]  [1 ])  ; 
gsl_vector_set  (optv_ra,  i,  PepiData [lndx+i] [2 ]) ; 
gsl_vector_set  (optv_dec,  i,  PepiData [lndx+i] [3] ) ; 


}  else  { 

//  force  integration  stop  to 
g_stop  =  PepiData [ lndx] [ 0] ; 
for  (i=0;  i<opt_n;  i++)  { 
gsl_vector_set  (g_out, 
gsl_vector_set  (optv_w, 
gsl_vector_set  (optv_ra, 
gsl_vector_set  (optv_dec, 

} 


//  integration 
last  element  in  set 


i,  PepiData [undx-i] [0 ]) ; 
i,  PepiData [undx-i]  [1  ])  ; 
i,  PepiData [undx-i]  [2 ])  ; 
i,  PepiData [undx-i]  [3]  )  ; 


in  negative 


time 


direction 


opt_t  =  gsl_vector_ptr  (g_out,  0); 

g_outndx  =  1;  //  g_outndx  pts  to  first  element  past  start 

g_nout  =  opt_n;  //  g_nout  is  number  of  targeted  outputs 


PROGRAM:  opt_file_ops 

Performs  output  file  maintenance  for  optimization  routine  (open,  close,  flush,  headers) 
INPUTS/OUTPUTS/RETURN  VALUE: 


f_mode  -  mode  flag:  0 
1 
2 
3 

-1 
-2 

INCLUDES /EXTERNAL  REFERENCES: 
Lincl.h  :  stdio.h,  FLAG 
Lextern.h  :  fp_euler,  fp_angvel 


open  files  for  standard  output, 
write  headers 
flush  output  streams, 
close  files 

Turn  on  standard  lageos  output  files 
turn  off  standard  lageos  output  files 


fp_angmom,  fp_log,  fp_orbit 


void  opt_file_ops (const  FLAG  f_mode) 

{ 

switch  (f_mode) 


case  -2:  {  //  return  to  'no  output  state' 

file_ops(l);  //  flush  the  buffers 
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file_ops(2);  //  close  the  files 

f ile_ops (-1 ) ;  //  reset  to  null  streams 

break;  } 

case  -1:  {  //  re-initialize  standard  Lageos  output  files  for  output 

char  filename [20] ; 

file_ops(2);  //  clean  up  first  just  in  case! 

//  Euler  output  file 

sprintf (filename, "l_euler_%02d.txt",  opt_nit) ; 
if  ((fp_euler  =  fopen (filename, "w" ) )  ==  NULL) 

lageos_error ( "Could  not  open  euler  angle  output  file"); 

//  Angular  Velocity  output  file 

sprintf (filename, "l_angvel_%02d.txt",  opt_nit) ; 

if  ((fp_angvel  =  fopen ( filename, "w" ) )  ==  NULL) 

lageos_error ( "Could  not  open  angular  velocity  output  file") ; 

//  Angular  Momentum  output  file 

sprintf (filename, "l_angmom_%02d.txt",  opt_nit) ; 

if  ((fp_angmom  =  fopen ( filename, "w" ) )  ==  NULL) 

lageos_error ( "Could  not  open  angular  momentum  output  file"); 

//  Log  output  file 

sprintf (filename, "l_log_%02d.txt",  opt_nit) ; 
if  ((fp_log  =  fopen (filename, "w" ) )  =—  NULL) 

lageos_error ( "Could  not  open  program  log  output  file"); 

//  Orbit  parameters  output  file 

sprintf (filename, "l_orbit_%02d.txt",  opt_nit) ; 

if  ((fp_orbit  =  fopen (filename, "w" ) )  ==  NULL) 

lageos_error ( "Could  not  open  orbit  output  file"); 
break;  } 

case  0:  {  //  open  files  for  output 

if  ((fp_stps  =  fopen ("l_optstps . txt",  "w" ))  =-  NULL) 

lageos_error ( "Could  not  open  optimization  iteration  output  file") ; 
if  ((fp_grad  =  fopen ( "l_optgrad . txt " ,  "w"))  ==  NULL) 

lageos_error ( "Could  not  open  optimization  iteration  output  file") ; 
if  ((fp_fvals  —  fopen ("l_optfvals .txt",  "w"))  ==  NULL) 

lageos_error ( "Could  not  open  optimization  function  output  file"); 
break;  } 

case  1:  {  //  write  header  lines 

dump_log (fp_stps,  0,  NULL,  NULL,  NULL,  NULL,  NULL,  NULL,  NULL); 
banner (fp_stps,  1,  '=',  0,  0,  105,  0,  0,  0,  0); 

fprintf (fp_stps, "  it#  | |  g_rcore  |  g_sigcore  |  g_magscl  |  g_oblcore  |" 

"  g_Il  I  g_I3  | |  net_err  I |  | dparams |  \n") ; 

banner (fp_stps,  1,  '=',  0,  0,  116,  0,  0,  0,  0); 

fprintf (fp_fvals, "it#  | |  g#  | |  g_rcore  |  g_sigcore  |  g_magscl  |  g_oblcore  | 

"  g_Il  I  g_I3  I |  rate_err  |  ra_err  I " 

"  dec_err  | |  total_error\n" ) ; 
banner (fp_fvals,  1,  '=',  0,  0,  154,  0,  0,  0,  0); 

fprintf (fp_grad, "it#  | |  g#  | |  drcore  |  drc_err  | |  dsigcore  |  dsc_err  | 

" |  dmagdir  |  dmd_err  | |  doblcore  |  doc_err  | " 

"|  dll  |  dll_err  ||  dI3  |  dI3_err  |" 

"|  |grad|  |  RSS_err\n") ; 
banner (fp_grad,  1,  '=',  0,  0,  199,  0,  0,  0,  0); 
break;  } 

case  2:  {  //  flush  buffers 

f flush (fp_stps) ; 
f flush ( fp_fvals) ; 
f flush (fp_grad) ; 
break;  } 

case  3:  {  //  close  output  files 

f close (fp_stps) ; 
f close (fp_grad) ; 
f close (fp_fvals)  ; 
break;  } 


PROGRAM :  opt_params 

Driver  routine  for  the  multi-dimensional  minimization. 


INPUTS/OUTPUTS/RETURN  VALUE:  none 

INCLUDES /EXTERNAL  REFERENCES: 

Lincl.h  :  stdio.h,  gsl_math.h,  gsl_multimin . h,  gsl_vector .h. 
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-  Lprot.h  :  lageos_error ( ) , 

Lopt.h  :  GRADTOL,  NPAR,  SETTOL,  STEP1,  f opt ( ) ,  dfopt(),  fdfoptO,  opt_data_init ( ) , 
:  opt_params ( ) ,  fp_stps,  optv_mp,  opt_wts 

COMMENTS : 

MODIFICATION  HISTORY: 

0211  Scott  Williams  First  Release 


void  opt_params (void) 

{ 

//size_t  opt_nit=0; 
char  str[30]; 

int  status  =  GSL_CONTINUE,  edpm=0; 
long  emin; 

double  esec,  dparmag=0,  bdpm=0; 
gsl_vector  *  v_mpar,  *  v_mpold; 
gsl_multimin_function_f df  fmp; 

gsl_multimin_fdfminimizer  *s; 

const  gsl_multimin_fdfminimizer_type  *T; 

//  Initialize  the  multimin  function  data  type 

f mp . f  =  &fopt; 

fmp.df  =  &dfopt; 

fmp.fdf  =  Sfdfopt; 

fmp.n  =  NPAR; 

fmp.params  =  (void  *)  opt_wts; 

//  Initialize  variable  model  parameters  vector 
v_mpold  =  gsl_vector_calloc (NPAR) ; 
v_mpar  =  gsl_vector_alloc (NPAR) ; 
gsl_vector_memcpy  (v_mpar,  optv_mp) ; 

//  Identify  multi-dimensional  minimizer  method  &  set  pointer  to  it 
switch  (MINMETH)  { 

case  1:  T  =  gsl_multimin_fdfminimizer_conjugate_fr;  break; 
case  2:  T  =  gsl_multimin_f dfminimizer_conj ugate_pr ;  break; 
default:  T  =  gsl_multimin_f dfminimizer_vector_bfgs; 

} 

s  =  gsl_multimin_fdfminimizer_alloc  (T,  fmp.n); 

//  Initialize  minimizer 

printf ( "%-14s |  initializing  f dfminimizer\n\n" , "opt_params" ) ; 
gsl_multimin_fdfminimizer_set  (s,  &fmp,  v_mpar,  STEP1,  SETTOL); 


//  find  the  minimum! 

while  (status  ==  GSL_CONTINUE  &&  opt_nit  <  100)  { 

//  output  current  data  point 

sprintf (str,  "%-14s|%2d  |  ",  "opt_params",  opt_nit); 
dump_params (stdout,  str,  s->x,  1,  & (s->f) ,  1); 
sprintf (str, "%4d  || ",  opt_nit); 

dump_params (fp_stps,  str,  s->x,  1,  &(s->f),  0) ; 
fprintf (fp_stps, "  | | %8 . 4f e%-+3d\n" ,  bdpm,  edpm); 
f flush (fp_stps) ; 

//  take  a  step 
opt_nit++; 

if  ((status  —  gsl_multimin_fdfminimizer_iterate  (s))) 

lageos_error ( "Problem  encountered  with  multi-dimensional  optimization"); 

/ /  check  convergence  of  gradient 

status  =  gsl_multimin_test_gradient  ( s->gradient,  GRADTOL) ; 

//  check  for  progress  with  parameter  values 
gsl_vector_sub  (v_mpold,  s->x) ; 
dparmag  =  gsl_blas_dnrm2 (v_mpold) ; 
bdpm  =  expcat (dparmag,  &edpm) ; 
if (dparmag  <  PARTOL)  { 
status  =  GSL_SUCCESS; 

fprintf (fp_stps,  "Incremental  change  in  parameters  <=  PARTOL;  Final  Optimzation 
"step  is:\n" ); 

} 

gsl_vector_memcpy  (v_mpold,  s->x) ; 

} 
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//  output  final  result 

sprintf (str,  "%-14s | it#=%2d  |",  "opt_params",  opt_nit); 
dump_params (stdout,  str,  s->x,  1,  & (s->f ) ,  1); 
sprintf (str, "%4d  || ",  opt_nit); 
dump_params (fp_stps,  str,  s->x,  1,  &(s->f),  0); 
fprintf (fp_stps, "  | | %8 . 4f e%-+3d\n" ,  bdpm,  edpm) ; 
elapsed_time ( &emin,  &esec) ; 

fprintf (fp_fvals,  "End  optimization  at  %31d: %04 . If . \n",  emin,  esec) ; 
opt_file_ops  (2); 

gsl_multimin_fdfminimizer_f ree  (s) ; 
gsl_vector_free  (v_mpar) ; 


//* 


LOPT.H 


♦include  <gsl/gsl_dif f . h> 

♦include  <gsl/gsl_f it . h> 

#include  <gsl/gsl_multimin . h> 

♦include  <g2c.h> 


//  Finite  differencing  (derivatives)  routines 
//  Linear  Least  Squares  data  fitting  routines 
//  Multi-dimensional  minimization  routines 


/*  each  row  should  be  the  data 
! ! !  must  ! ! !  be  stored  in  as 
#define  NDATA  29 
const  double  PepiData [NDATA] [4 


/* 


JD2K 

-4110.109722, 

-4040.265278, 

-3783.213194, 

-2826.333206, 

-2772.093322, 

-2769.118056, 

-2761.291470, 

-2758.314155, 

-2712.420775, 

-2678.446690, 

-2650.489155, 

-2647.443750, 

-2642.493750, 

-2633.503472, 

-2625.526389, 

-2443.370139, 

-2439.306250, 

-2430.370139, 

-2404.369444, 

-2359.197917, 

-2299.422222, 

-2268.318750, 

-2241.531944, 

-2240.446528, 

-1771.164583, 

-1755.327083, 

-1732.318056, 

-1284.500000, 

-1172.500000, 


corresponding  to 

cending  order 

]  = 

w  (rad/s) 

1 . 67061561E-01, 
1 .57631342E-01, 
1 .25362835E-01, 
5. 369 32 60 2E -02, 
5. Ill  6053 6E -02, 
5.13206347E-02, 
5. 0711745 8E -02, 
5. 1274565 9E -02, 
4 .88697 62  IE-02, 
4 . 7100339 6E -02, 
4 . 66804258E-02, 
4 . 71781447E-02, 
4 . 66804258E-02, 
4 .5596410 IE -02, 
4 .4720180 IE -02, 
3.82188887E-02, 
3 . 7  6689767E-02, 
3.81030037E-02, 
3.72800837E-02, 
3. 5842471 8E -02, 
3 . 38533691E-02, 
3.32092247E-02, 
3. 2188449 3E -02, 
3 . 152  62  685E-02, 
2 . 0138414 4E -02, 
2 . 1226977 4E -02, 
2 . 1084514 5E -02, 
1 .28228272E-02, 
1 .28228272E-02, 


the  time  in  the  first  column;  time  column 


ra  (rad) 
2.65063154, 
0.95661496, 
0.26179939, 
1.50866261, 
1.03253679, 
0.96377081, 
0.91559973, 
0.89081605, 
0.79726640, 
0.00628319, 
0.35901423, 
0.42778020, 
0.48781953, 
0.52569317, 
0.67753682, 
1.53344628, 
55299397, 
63903870, 
56974913, 
63153378, 
75964095, 
88617732, 
00451065, 
02353473, 
02468280, 
0.03385939, 
0.65083328, 
1.32557757, 
1.20864051, 


dec  (rad) 
-1.27269409 
-1.44303823 
-1.36135682 
-1.32121424 
-1.35455003 
-1.34146006 
-1.33395515 
-1.34425259 
-1.40673538 
-1.40795711 
-1.40481551 
-1.39329634 
-1.38544236 
-1.39713607 
-1.37776291 
-1.28875112 
-1.27234502 
-1.24372162 
-1.28351513 
-1.28054807 
-1.26030225 


-1.30882241 

-1.33465328 

-1.35786616 

-1.15523343 

-1.16169115 

-1.21876342 

-1.17914444 

-1.24738682 


#def ine 

DECAY 

-8 . 95e-4 

//-8.888779e-4 

//  ■ 

#def ine 

NPAR 

6 

/* 

rco 

#def ine 

NPARX 

2 

'  // 

#def ine 

HIST 

10  *NPAR 

// 

// 

#def ine 

MINMETH 

2 

// 

#def ine 

COMPTOL 

1.0e-14 

// 

// 

#def ine 

SETTOL 

5 . Oe-3 

// 

#def ine 

GRADTOL 

1.0e-2 

// 

#def ine 

PARTOL 

1.0e-5 

// 

#def ine 

DTOL 

1 . Oe-3 

// 

exponential  decay  coefficient  of  spin  rate 

♦  of  variable  model  parameters  in  optimziation 
re,  g_sigcore,  g_magscl,  g_oblcore,  g_Il,  g_I3} 

♦  of  NPAR  to  exclude  (see  opt_nx) 

number  of  historical  results  to  store  in  fopt 
to  prevent  redundent  computation 
method:  l=conj_fr,  2=conj_pr,  3=bfgs 
relative  precision  with  which  to  determine 
"equality"  with  historical  input  values 
Tolerance  for  fdfminimizer  initialization 
Tolerance  for  gradient  convergence 
Tolerance  for  parameter  convergence 
Relative  accuracy  desired  in  derivative  calc 
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#def ine 

DRTOL 

0.25 

// 

#def ine 

STEP1 

0.01 

// 

#def ine 

GROSTP 

1.5 

// 

#def ine 

SHRSTP 

0.35 

// 

#def ine 

MINHF 

le-2 

// 

Relative  accuracy  REQUIRED  in  derivative  calcs 
Initial  stepsize  to  try  along  line  minimization 
Stepsize  adjustment  factors  for  dfopt 
routine 

minimum  factor  of  opt_hmax  values  allowed 


FILE 

FILE 

FILE 

int 

int 

int 

int 


int 

size_t 

double 

double 


float 


double 

gsl_vector 

gsl_vector 

gsl_vector 

gsl_vector 

gsl_vector 


fp_stps; 
fp_grad; 
fp_fvals; 
optf_out=l ; 
opt_n; 
opt_ndf ; 

opt_nx [NPARX]  =  {1,3}; 


opt_nfopt=l; 

opt_nit; 

opt_wts[3]  =  {lel2,  1.0, 
opt_scl [NPAR] ; 

opt_hmax [NPAR]  =  {5e-3, 


opt_t; 

optv_mp; 

optv_pmin; 

optv_w; 

optv_ra; 

optv_dec; 


1.0}; 


ig 

0.01, 


//  Multi-dimensional  minimization  iterates  file 
//  Numerical  derivatives  file 
//  fopt  function  output  file 
//  trigger  std  output  file  generation 
//  #  of  data  elements  in  integration  interval 
//  index  of  parameter  to  vary  in  differentiation 
/*  indices  of  parameters  to  exclude  from  optimizatn 
(i.e.,  hold  const);  forces  partials  to  0;  set 
NPARX=1  and  opt_nx [0 ] >=NPAR  for  no  exclusions  */ 
//  number  of  fopt  calls  for  each  partial  deriv 
//  minimization  iteration  number 

//  error  weights  with  scaling:  {decay,  ra,  dec} 

/*  scaling  factors  for  variable  model  parameters  - 
use  to  scale  internal  values  to  order  unity; 
rcore,  g_sigcore,  g_magscl,  g_oblcore,  g_Il,  g_I3}  */ 
"0.1,  0.25,  0.025,  0.025}; 

/*  stepsize  seeds  for  nr_c  dfridr  relative  to  the 
internal  scaling  of  ops_scl 
rcore,  g_sigcore,  g_magscl,  g_oblcore,  g_Il,  g_I3}  */ 
//  pointer  to  JD2K  optv_t  of  PepiData  elements 
//  vector  of  variable  model  parameters 
//  vector  of  params  for  best  internal  fopt  value 
//  /  vectors  of  PepiData  elements  in  integration 

//  <  interval;  sorted  in  correspondence  w/JD2K 
//  \  values  (ascend/ descend  depends  on  gf_idir) 
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